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NON FARTI SUPERARE DAL PROGRESSO 




Aggiornati con gli 
“Aggiornamenti” 

ENCICLOPEDIA 
DI ELETTRONICA 
& INFORMATICA 


FASCICOLI SETTIMANALI DA RILEGARE 
IN DUE NUOVI E SPLENDIDI VOLUMI 


PER TE, PER IL TUO LAVORO, PER I TUOI STUDI... 
i Aggiornamenti 

le nuove conquiste dell’Elettronica di Base, 
delle Comunicazioni, dell'Elettronica 
Digitale, dei Microprocessori, 
dell’Informatica... 


2 II personal computer 

tutto quello che c’è da sapere sul Personal 
Computer: che cos’è e cosa fa; come fa 
e come si fa; i linguaggi di programmazione; 
le applicazioni... 

E.l. si aggiorna e ti aggiorna 


il 18 settembre 

batti sul tempo il progresso! 
Corri in edicola a comprare 
primo fascicolo. 


ANCORA UNA VOLTA 
“PRIMI SUL FUTURO” 




JBB! 


nuovidea 






















SINCRONIA 



Smau: 
il giro del mondo 

in 91.000 metri quadrati 


Smau: chi lo visita farà un entusiasmante 
giro del mondo in 91.000 mq. 
Qui infatti troverà tutte le novità 
dei più importanti produttori mondiali. 
Qui troverà esperti capaci di consigliare 
le soluzioni più aderenti al futuro dell’azienda 
e dell'organizzazione del lavoro. 
Troverà la 18a edizione 
del Premio Smau Industriai Design; 
troverà Convegni e Seminari; 
troverà lo Spazio Giovani. Troverà il mondo intero: 

tutto racchiuso in 91.000 metri quadrati. 
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sione a tutti i suoi lettori per analizza¬ 
re, scoprire e potenziare le proprie 
capacità comunicative e divenire pro¬ 
tagonisti reali di una ampia trasfor¬ 
mazione in corso, di cui uno degli 
aspetti più evidenti è costituito dall'e- 
spandersi progressivo delle tecno¬ 
logie. 
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zione all'informatica e, nel contem¬ 
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nità a dischi di un personal computer 
e il significato dei comandi relativi, 
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verse tecniche di gestione dei file su 
disco. 
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WORD STAR 

Perché un computer, anche di cate-' 
goria micro, sia utile nell’attività di 
ufficio è essenziale che permetta 
anche di effettuare l'elaborazione dei 
testi, con tutte le funzioni che ciò 
comporta. I prodotti software a ciò 
destinati sono oggi moltissimi ma 
solo alcuni emergono per completez¬ 
za e flessibilità: fra questi Wordstar è 
sicuramente uno dei più riusciti. 
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Sempre più vaste sono le applicazio¬ 
ni dell'informatica in ogni settore del¬ 
la vita e del lavoro, e In particolare 
quelle della computer grafica. Nean¬ 
che mestieri e professioni con una 
origine antica come l'architetto o 
l'urbanistica si 'salvano* dall'onda 
dell'informatica. 
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tettura e di urbanistica tutti i vantaggi 
e gli avanzamenti possibili nella pro¬ 
gettazione e lo studio di nuovi edifici, 
complessi edilizi o urbani grazie alla 
computer grafica. 

Cod. 801P Pag. 224 Lire 30.000 





























SOMMARI 


LA SIMULAZIONE DINAMICA 
DI FENOMENI CONTINUI 

di Franco Sardo 

COMMODORE 64 

16 

AGENDA TELEFONICA 

di Fabio Fanecco 

CASIO PB-100-200-300 

24 

DATA BASE 

di Claudio Poma 

COMMODORE 16 

27 

EASY VIDEO 64 

di Maurizio Paoli nelli 

COMMODORE 64 

41 

CUBO MAGICO 

di Compagiani 

ZX SPECTRUM 

47 

HI-RES 

di Sergio Borsani 

TEXAS TI99/4A 

52 

STATISTICA 
A PIU’ DIMENSIONI 

di Roberto Brunialti 

APPLE II 

61 

GEO-RACE 

di Federico Lo Cicero 

ZX SPECTRUM 

77 

ROUTINE 2 PER SPECTRUM 

di Ivano Parbuono 

ZX SPECTRUM 

81 

DISEGNATORE PER MSX 

di Paolo Ferrami 

MSX 

86 


PERSONAL* 

SOFTWARE 



Questo mese: Disegnatore 
per MSX, come scoprirsi 
valenti pittori con questo 
splendido programma 
in standard MSX. 


ANNO 4 

N. 30 

LUGLIO-AGOSTO 1985 


RUBRICHE 


EDITORIALE 

di Riccardo Paolillo 

POSTA 

PERSONAL NEWS 

a cura di Marco Giacobazzi 

I SEGRETI DEI PERSONAL: 

Uso delle label simboliche 

di Lino Squarza 

Caratteri & colori 

di Martino Sangiorgio 

Da cassetta a mlcrodrlve 

di Marcello Spero 

Quali segreti cl riserva la stampa? 

di Sergio Borsani 

PERSONAL MARKET 


7 

9 



12 

COMMODORE 64 

96 

SHARP MZ-700 

102 

ZX SPECTRUM 

104 

TEXAS TI99/4A 

107 


110 






CON INSERTO SUPERBIT 

64 PAGINE DI SOFTWARE PER IL TUO PERSONAL 


ein 

edicola 
il nuovo 


B itest 
Atari 130 XE 

S lalom 

parallelo: 

HP PC Integrato 
contro 

GRiD Compass II 


n 11 li i raro 


E nterprise 
Sixty-Four 


Bit, la prima 
e più diffusa rivista 
di personal computer 
e accessori 



UNA 

PUBBLICAZIONE 

DEL 

GRUPPO 

EDITORIALE 

JACKSON 

SAN FRANCtSCO-LONDAA'MILANO 



Otf FUSA RIVISTA 


. rfnuMP*CRA«t 
Bffixaraf _ 

SLALOM PARALLELO 
HP PC INTEGRATO 

cornilo 

GRID COMPASS II 


Corso 
di Assembly 
per C 64 


Over BASIC 
per Spectrum 


Contabilità 
casalinga 
con il C 64 

Ql Art 





D isegnare 
sullo schermo 
con un MSX 


SPECIALE: 

DATA-BASE 


















Musica, maestro! 


'V 


E sicuramente vero che la musica riveste un ruolo molto 
importante per la maggior parte delle persone. 

La grande varietà di generi, classici o moderni, garantisce a 
chiunque di soddisfare i propri gusti. Ognuno ascolta la musica con 
uno stato d’animo differente: chi nei momenti di tristezza, chi in quelli 
di gioia. 

Ma la musica serve anche a distrarsi, sognare, meditare, rilassarsi, 
addormentarsi o lavorare: è, in definitiva, una componente 
fondamentale della nostra vita. 

Inevitabile quindi che la ricerca di nuove e sempre più sofisticate 
funzioni di cui dotare i personal computer si orientasse decisamente in 
questo senso. 

L’inizio di musica con il calcolatore, a dir la verità, era stato un po’ 
deludente anche per gli audiofili meno esigenti. Ancora pochi anni fa il 
massimo che si riusciva ad ottenere era la possibilità di modificare la 
durata di un “beep” monofonico dando cosi vita a melodie di 
struggente tristezza. 

La strada era però segnata e in men che non si dica vennero lanciati sul 
mercato home computer a basso costo, ma con prestazioni sonore 
strepitose: addirittura tre voci, indipendenti e programmabili, garantite 
da un apposito chip dedicato. È proprio il caso di dire che la musica 
cambiò; non più suoni gracchianti e cacofonici, ma motivi di piacevole 
ascolto. 

11 fatto nuovo e importante, però, non era semplicemente quello di far 
suonare un pezzo al proprio calcolatore. La possibilità di poter mettere 
le mani su uno “strumento” musicale dall’uso molto più semplificato 
rispetto a quelli tradizionali, ha sicuramente contribuito ad avvicinare 
maggiormente molte persone alla musica. 

Grazie a semplici programmi di sintesi musicale, o addirittura veri e 
propri corsi di facile comprensione come 7 Note Bit del Gruppo 
Editoriale Jackson in collaborazione con la SIEL, chiunque può 
improvvisarsi musicista e provare l’emozione di suonare il proprio 
pezzo preferito. 

La cosa comunque non finisce qui: anche i veri musicisti si stanno 
accorgendo di questi nuovi mezzi che la tecnologia propone. Sono 
sempre più numerosi i personal che spuntano tra tastiere e mixer sui 
palcoscenici o nelle sale di incisione. A volte sono utilizzati per 
programmare l’esecuzione di altri strumenti, ma spesso anche per 
suonare, soprattutto parti ritmiche. 

Se utilizzati intelligentemente, come spesso accade, non tolgono nulla 
alla creatività dell’artista, ma anzi ne mettono in risalto la sensibilità. 
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Debug 


L’articolo Bianchi <& Neri per Apple pubblicato nel 
minierò 28 - Maggio - è opera di Franco e Antonio 
Massaro e non di Stefano Guari ne Ili come erroneamente 
riportato. Ce ne scusiamo con gli interessati. 

Inoltre, per esigente tipografiche, non è stato pubblicato il 
listato Assembly della routine contrariamente a quanto 
scritto nell'articolo. 

Lo pubblichiamo ora in quanto può essere molto utile a chi 
intendesse studiare a fondo il programma per convertirlo a 
un altro personal. 



NEXT OBJECT FILE NAME IS 

SUBROUTINE.OBJO 

6001 : 



23 

•INIZIO SUBROUT. 

6001 : 

1 


0R6 

*6001 

6001 * 



24 

• CREA 

IL NUMERO 

6001 : 

2 

• 



6001 : 



25 

•IN CORSO. 


6001 : 

3 

• ASSEGNA ALI.E LO- 

6001 * 



26 

• 



6001 : 

4 

•CAZIONI DI 

MEMO- 

6001 * A9 

00 


27 


l.DA 

£♦ 00 

6001 s 

5 

•RIA LE 

RELATIVE 

6003 * GD 

01 

03 

28 


STA 

CORSOI 

6001 : 

6 

•LAPELS, 



6006*EE 

01 

03 

29 

VARI 

INC 

CORSOI 

6001 : 

7 

« 



6009:AD 

01 

03 

30 


LDA 

CORSOI 

0300* 

8 

NUME 

EOU 

*300 

600C:C9 

OA 


31 


CMP 

£*0A 

0301 * 

9 

CORSOI 

FQU 

♦301 

600E* 30 

01 


32 


BMI 

PROSEG 

0302* 

10 

C0RS02 

EQU 

*302 

6010*60 



33 


RTS 


0303; 

1 1 

C0RS03 

EQU 

*303 

6011 :A9 

00 


34 

PROSEG 

LDA 

£*00 

0304* 

12 

C0RS04 

EQU 

♦304 

6013*80 

02 

03 

35 


STA 

C0RS02 

0305* 

13 

NUMER 

EQU 

♦305 

6016 * EE 

02 

03 

36 

VAR2 

INC 

C0RS02 

0327* 

14 

PREMER 

EQU 

♦327 

6019 * AD 

02 

03 

37 


LDA 

C0RS02 

0328* 

15 

PRESI A 

EQU 

♦ 328 

601C * C9 

OA 


38 


CMP 

£*0A 

034 P.: 

16 

DEPOSI 

EQU 

♦ 34B 

601E * FO 

E6 


39 


BEQ 

VARI 

034C * 

17 

DEP0S2 

EQU 

♦ 34C 

6020*A9 

00 


40 


LDA 

£♦00 

Q34D* 

18 

DEP0S3 

EQU 

♦34D 

6022 * 8D 

03 

03 

41 


STA 

C0RS03 

034E* 

19 

NERI 

EQU 

♦ 34E 

6025*EE 

0 3 

03 

42 

VAR3 

INC 

C0RS03 

034F * 

20 

BIANCHI 

EQU 

•34F 

6028: AD 

03 

03 

43 


LDA 

CORS03 

0350* 

21 

CONT 

EQU 

*350 

602B * C9 

OA 


44 


CMP 

£*0A 

6001 * 

22 

« 



602D*F0 

E7 


45 


BEQ 

VAR2 


034F 

BIANCHI 

60C7 

CALCBN 

0350 

CONT 

606C 

CONTINUA 

0303 

C0RS03 

0304 

C0RS04 

034D 

DEP0S3 

6083 

EXIT 

60D8 

NER 

034E 

NERI 

0328 

PREBIA 

0327 

PRENER 

6006 

VARI 

6016 

VAR2 

0300 

NUME 

0301 

CORSOI 

0304 

C0RS04 

0305 

NUMER 

034B 

DEP0S1 

034 C 

DEP0S2 

034F 

BIANCHI 

0350 

CONT 

6016 

VAR2 

6025 

VAR3 

606C 

CONTINUA 

6079 

LOOP 

6092 

INCRY 

60C4 

RINVIA 


6043 

CONFR 

6087 

CONF 

0301 

CORSOI 

0302 

C0RS02 

034B 

DEPOSI 

034C 

DEP0S2 

6092 

INCRY 

6079 

LOOP 

0300 

NUME 

0305 

NUMER 

601 1 

PROSEG 

60C4 

RINVIA 

6025 

VAR3 

6034 

VAR4 

0302 

C0RS02 

0303 

C0RS03 

0327 

PRENER 

0328 

PREBIA 

034D 

DEP0S3 

034E 

NERI 

t>006 

VARI 

601 1 

PROSEG 

6034 

VAR4 

6043 

CONFR 

6083 

EXIT 

6087 

CONF 

60C7 

CALCBN 

60D8 

NER 


602F:A9 

00 


<*6 

LDA 

£*00 

6031 * 8D 

04 

03 

47 

STA 

C0RS04 

6034*EE 

04 

03 

48 VAR4 

INC 

C0RS04 

6037 * AD 

04 

03 

49 

LDA 

C0RS04 

603A*C9 

OA 


50 

CMP 

£*GA 

603CSF0 

E7 


51 

BEQ 

VAR3 

603E* A2 

00 


52 

LDX 

£*00 

6040*AD 

04 

03 

53 

LDA 

C0RS04 

6043*DD 

01 

03 

54 CONFR 

CMP 

CORSOI,X 

6046*F0 

EC 


55 

BEQ 

VAR4 

6048*E8 



56 

INX 


6049*E0 

03 


57 

CPX 

£♦03 

604B*DO 

F6 


50 

BNE 

CONFR 

604D*AD 

03 

03 

59 

LDA 

C0RS03 

6050*CD 

01 

03 

60 

CMP 

CORSOI 

6053*FO 

DO 


61 

BEQ 

VAR3 

6055*CD 

02 

03 

62 

CMP 

C0RS02 

6058*F0 

CB 


63 

BEQ 

VAR3 

605A * AD 

02 

03 

64 

LDA 

C0RS02 

605DSCD 

01 

03 

65 

CMP 

CORSOI 

6060*F0 

B4 


66 

BEQ 

VAR2 

6062* 



67 * 



6062* 



68 «CONFRONTA IL NU- 

6062* 



69 «MERO 

IN CORSO 

6062* 



70 «CON UN NUMERO 

60621 



71 «GIOCATO DAL 


6062* 



72 «COMPUTER E 

CAL- 

6062* 



73 «COLA 

IL PUNTEG- 

6062* 



74 *610 OTTENUTO 

6062* 



75 «DAL CONFRONTO. 

6062* 



76 • 



6062*A9 

04 


77 

LDA 

£♦04 

6064 * 8D 

4B 

03 

78 

STA 

DEP0S1 

6067 : AG 

00 


79 

LDY 

£*00 

6069*8C 

50 

03 

80 

STY 

CONT 

606C * EE 

90 

03 

81 CONTINUA INC 

CONT 

606F* 8C 

4F 

03 

82 

STY 

BIANCHI 

6072*8C 

4E 

03 

83 

STY 

NERI 

6075 * 98 



84 

TYA 


6076*AE 

50 

03 

85 

LDX 

CONT 

6079*CA 



86 LOOP 

DEX 


607A * FO 

07 


87 

BEQ 

EXIT 

607C * 10 



88 

CLC 


60VD* 6D 

4B 

03 

89 

ADC 

DEPOSI 

6080*4C 

79 

60 

90 

JMP 

LOOP 

6083 * AA 



91 EXIT 

TAX 


6084:8E 

4C 

03 

92 

STX 

DEP0S2 

6087*BD 

05 

03 

93 CONF 

LDA 

NUMER,X 

608A* D9 

01 

03 

94 

CMP 

CORSOI,Y 

608D* DO 

03 


95 

BNE 

INCRY 

608F* 20 

C7 

60 

96 

JSR 

CALCBN 

6092*C8 



97 INCRY 

INY 


6093*CO 

04 


98 

CPY 

£*04 

6095 * DO 

FO 


99 

BNE 

CONF 

6097*A0 

00 


100 

LDY 

£*00 

6099*E8 



101 

INX 


609A* 8A 



102 

TXA 


609B* 38 



103 

SEC 


609C: ED 

4C 

03 

104 

SBC 

DEP0S2 

609F * C9 

04 


105 

CMP 

£*04 

60A1* DO 

E4 


106 . y 

BNE 

CONF 

60A3 * 



107 • 



60A3* 



108 «CONFRONTA IL PUN- 

60A3 * 



109 «TEGGIO DEL NUME- 

60A3* 



110 «RO IN 

CORSO 


60A3 * 



111 «CON QUELLO DI 

60A3* 



112 «GIOCO, 



60A3* 



113 • 



60A3 * AD 

50 

03 

114 

LDA 

CONT 

60A6*18 



115 

CLC 


60A7:6D 

50 

03 

1 16 

ADC 

CONT 

60AA*AA 



117 

TAX 


60AB*BD 

27 

03 

118 

LDA 

PRENER,X 

60AE * CD 

4E 

03 

119 

CMP 

NERI 

60B1* DO 

81 


120 

BNE 

VAR4 

60B3 * BD 

28 

03 

121 

LDA 

PREBIA,X 

60B6* CD 

4F 

03 

122 

CMP 

BIANCHI 

60B9JD0 

09 


123 

BNE 

RINVIA 

60BB* AD 

50 

03 

124 

LDA 

CONT 

60BE * CD 

00 

03 

125 

CMP 

NUME 

60C1 *1)0 

A9 


126 

BNE 

CONTINUA 

60C3*60 



127 

RTS 


A0C4S4C 

3* 

60 

*28 RINVIA 

JMP 

VAR4 

60C7 * 



129 • 



60C7 * 



130 «SUBROUT.CALCBN. 

60C7 * 



131 « 



60C7:8A 



132 CALCBN 

TXA 


60C8* 38 



133 

SEC 


60C9* ED 

4C 

03 

134 

SBC 

DEP0S2 

60CC * 8D 

4D 

03 

135 

STA 

DEP0S3 

60CF * C C 

4D 

03 

136 

CPY 

DEP0S3 

60D2*F0 

04 


137 

BEQ 

NER 

60D4 * EE 

4F 

03 

138 

INC 

BIANCHI 

60D7 * 60 



139 

RTS 


60D8* EE 

4E 

03 

140 NER 

INC 

NERI 

60DB* 60 



141 

RTS 
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Compilatori 
ed interpreti 

Posseggo uno ZX Spectrum da poco 
tempo e sto cominciando a realizzare i 
miei primi programmi. Utilizzo il lin- 
guaggio BASIC di cui è dotato il mio 
personal. Ho letto sul manuale d’uso 
che tale linguaggio è interpretato, 
mentre anche su altre riviste ho letto 
che esistono linguaggi compilati. 
Gradirei sapere in cosa differiscono, se 
posso utilizzare un compilatore con il 
mio calcolatore e che benefici ne rica¬ 
verei. 

Stefano Bennini 
Pistoia 

Cominciamo dall’inizio. Compilatori ed 
interpreti sono essi stessi dei particolari 
programmi che hanno il compito di tra¬ 
sformare una serie di istruzioni scritte in 
un linguaggio di programmazione ad alto 
livello in codici macchina direttamente e- 
seguibili dal microprocessore. 

I linguaggi ad alto livello sono quelli nor¬ 
malmente usati da chi sviluppa software 
applicativo e vengono così definiti perché 
la loro sintassi li rende più vicini al lin¬ 
guaggio naturale (quello parlato) a diffe¬ 
renza di quanto succede per i codici mac¬ 
china, che sono una serie di numeri binari. 
Se, ad esempio, consideriamo il BASIC, 
che è senza dubbio il linguaggio ad alto 
livello universalmente diffuso tra gli uten¬ 
ti di home computer, possiamo osservare 
che un programma è costituito da una serie 
di istruzioni (paragonabili a frasi nel lin¬ 
guaggio naturale) formate da parole chia¬ 
ve in lingua inglese legate fra loro median¬ 
te particolari regole sintattiche e logiche. 
In pratica, mediante un programma, dia¬ 
mo al nostro calcolatore delle regole di 
funzionamento utilizzando un linguaggio 
comprensibile sia a noi che al processore. 

II calcolatore riconosce le istruzioni date e 
le esegue, grazie proprio a compilatori ed 
interpreti. 

Infatti ogni istruzione scritta in BASIC, ad 
esempio una semplice Print, deve essere 
tradotta in una serie di codici direttamente 
eseguibili dal microprocessore, che appar¬ 
tengono al suo set di istruzioni di base (fra 


le 50 e le 100 per i micro più diffusi). 

La differenza tra interpreti e compilatori 
consiste nel modo in cui viene effettuata la 
traduzione e l’esecuzione del programma. 
L’interprete esamina una istruzione, la tra¬ 
duce nella sequenza di istruzioni elementa¬ 
ri c quindi la esegue. Il tutto viene fatto 
istruzione per istruzione e quindi la fase di 
traduzione è contemporanea a quella di 
esecuzione. 

Il compilatore, invece, a partire da un pro¬ 
gramma in linguaggio ad alto livello ne 
genera un altro in codice oggetto diretta- 
mente eseguibile dal processore. Ogni ri¬ 
chiesta di esecuzione farà quindi diretta- 
mente riferimento a quest’ultimo codice e 
non più al programma sorgente. 

In termini pratici l’esecuzione di program¬ 
mi compilati avviene molto più veloce¬ 
mente, in quanto non viene ripetuta ogni 
volta la fase di traduzione. 

D’altra parte è molto più comodo svilup¬ 
pare programmi utilizzando linguaggi in¬ 
terpretati: infatti dopo ogni modifica il 
programma è immediatamente eseguibile, 
mentre con linguaggi compilati occorre 
ripetere la fase di traduzione nel codice 
oggetto. 

Inoltre i compilatori sono in generale più 
complessi e dall’uso meno immediato an¬ 
che se normalmente garantiscono soluzio¬ 
ni più professionali. 

Anche per lo Spectrum, come per quasi 
tutti gli home computer, sono disponibili 
in commercio compilatori ed interpreti 
per diversi linguaggi. 

Per quanto riguarda in particolare i compi¬ 
latori ci risulta esistano le versioni per i 
linguaggi BASIC, Forth, C e Micropro- 
log. 



Software cercasi 

Pochi mesi fa acquistai un Commodore 
Plus 4 convinto dalle sue caratteristi¬ 
che decisamente interessanti. Ora a di¬ 
stanza di tempo sono un po’ deluso, in 
quanto ho difficoltà a reperire del sof¬ 
tware per il mio calcolatore. Esiste la 
possibilità di utilizzare i programmi da 
voi pubblicati per C 64 direttamente sul 
mio Plus 4? 

Antonio Maletti 
Roma 
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11 C 64 e il Plus 4 sono due macchine 
piuttosto diverse. Il C 64 è dotato di mi¬ 
gliori capacità sonore grazie all’apposito 
circuito SID e inoltre consente di definire 
gli sprite per ottenere facilmente delle ani¬ 
mazioni grafiche. 

Il Plus 4, invece, ha una memoria RAM 
più estesa c 4 applicazioni (foglio elettroni¬ 
co, database, word processor e analisi gra¬ 
fica) integrate c sempre a disposizione. I- 
noltre offre alcune comode istruzioni BA¬ 
SIC relative allo sfruttamento delle possi¬ 
bilità grafiche e sonore. 

Per questo motivo è impossibile utilizzare 
direttamente sul Plus 4 dei programmi 
concepiti per C 64, a meno di non effettua¬ 
re una traduzione delle istruzioni non co¬ 
muni ai due linguaggi. 

Tenga però in conto che invece il Plus 4 è 
perfettamente compatibile con il C 16, per 
il quale ultimamente è stato reso disponi¬ 
bile parecchio software. 

Anche Personal Software ha pubblicato 
(e continuerà a farlo) diversi programmi 
utilizzabili dai possessori di C 16 e Plus 4. 
Inoltre sono recentemente stati pubblicati 
dei libri dedicati espressamente a queste 
due macchine. Le ricordo, in particolare i 
volumi del Gruppo Editoriale Jackson e 
della J .soft che ha recentemente presentato 
un libro tutto di programmi per C ili c 
Plus 4. ■ 
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più il Personal Computer IBM? 



La Libreria Programmi 
Personal Computer IBM, 
per esempio. 

Il tuo Concessionario IBM per il Personal Com¬ 
puter ha una novità per te: la Libreria Programmi 
Personal Computer IBM. 

La Libreria Programmi Personal Computer IBM 
è uno strumento utilissimo, che ti permette di 
trovare nel modo più immediato i programmi fir¬ 
mati da IBM. Puoi guardarli e confrontarli perve- 
dere subito, fra quelli di uno stesso settore appli¬ 
cativo, quale sia il programma che risponde me¬ 
glio alle tue esigenze di lavoro. 

Ma la Libreria Programmi Personal Computer 
IBM ti dà anche un aiuto in più: con ogni pro¬ 
gramma troverai la brochure che lo riguarda. Ce 
ne sono anche molte altre, che ti illustreranno 
tutto quello che il tuo Personal Computer IBM 
può fare e le sue applicazioni particolari,come il 
Videotel. 

Puoi prenderle e portarle a casa, per leggerle in 
tutta tranquillità e pensare bene alla scelta che 
devi fare. 

E non dimenticare che il Concessionario IBM (gli 
indirizzi sono sulle Pagine Gialle) è un vero 
esperto, che conosce perfettamente il Personal 
Computer IBM ed i problemi della tua attività. 
Potrà consigliarti nel modo migliore nella scelta 
dei programmi e ti illustrerà tutte le possibilità 
che il Personal Computer IBM ti offre, oltre alla 
grande versatilità delle sue prestazioni. 

Per acquisto, consulenza e servizi, puoi anche ri¬ 
volgerti al Negozio IBM Centromilano. 

Allora, non ti pare che il Personal Computer IBM 
abbia veramente qualcosa in più? 


Desidero ricevere: 

□ Informazioni su! Personal Computer IBM ci suoi programmi. 

□ Gli indirizzi dei Concessionari IBM Personal Computer della mia regione 

□ Una visita o dimostrazione pratica di un concessionario 


Nome e Cognome. 

Azienda.... 

La mia attività è.... 


Indirizzo...-.... 

Spedisci questo tagliando a: IBM Italia 

Direzione Kntry Systems 

Casella Post. 137 - 20090 Scgrate Milano 


























Interfaccia 
programmabile 
per giocare 
con lo Spectrum 

U no dei problemi di chi vuole 
utilizzare la macchina di Sir 
Clive per giocare, è la difficol¬ 
tà di operare con i joystick a 
causa della mancanza di una porta dedicata 
a quest’aggeggio. Le soluzioni proposte, 
tra l’altro dalla stessa Sinclair con l’inter¬ 
faccia ZX 2, non sono mancate, ma hanno 
generato una tale babele di “standard” 
contrastanti da rendere molto difficile la 
vita agli appassionati giocatori. La Frel 
Limited, società ovviamente inglese, ha 
risolto a suo modo il problema mettendo a 
punto ComCom, una piastra che consente 
di associare ai sei tasti scelti dal realizzatore 
del gioco per simulare l’effetto joystick 
(quattro direzionali e due per “sparare”), 
le effettive posizioni fisiche della magica 
manopola. E sufficiente, anche a gioco 
caricato, attuare una serie di immediate 
connessioni che rispecchiano le conven¬ 
zioni del progettista sulla piastrina che 
comprende l’uscita per il joystick, ed il 



gioco è fatto. Se il gioco prevede che si 
prema la lettera Q per ottenere lo sposta¬ 
mento laterale a sinistra, si connette il ca¬ 
vetto uscente dalla posizione segnata dalla 
freccia a sinistra con la posizione marcata 
Q sulla piastra. Questo hardware non disa¬ 
bilita la tastiera e rende quindi possibile 
agire anche con giochi, come il Simulatore 
di volo, che richiedono la pressione con¬ 
temporanea di più tasti. La scheda Com¬ 
Com, di dimensioni (12 per 13,5 per 2 cm) 
e costo contenuti (meno di 20 sterline), ha 
un’uscita per i joystick e comprende un 
port d’espansione per l’eventuale connes¬ 
sione di sintetizzatori vocali e stampanti. 
La società distributrice possiede un ricco 
catalogo di accessori per macchine Sinclair 
e di altre marche, disponibile su richiesta 
scritta per i rivenditori interessati. 

Lion House (Retai!) LTD 
International division 
227 Tottenham Court Road 
London WiP oHX 
England 

Telex 28374 LION G 



Confezione-raccoglitore 
per i floppy Memorex 


S ensibile alle esigenze degli utenti 
di supporti magnetici, sempre alle 
prese con i problemi della conser¬ 
vazione dei dischetti flessibili, la 
Memorex ha messo a punto una soluzione 
relativamente originale ed economica af¬ 
fiancando alla classica scatola di cartonci¬ 
no, una confezione da dieci floppy conte¬ 
nuti in una custodia rigida di materiale 
plastico. Questa custodia, che costa quan¬ 
to un dischetto in più, permette di conser¬ 
vare i dischi in poco spazio e offre una 
discreta comodità per quanto riguarda l’u¬ 
so dei supporti magnetici. Il coperchio 
viene parzialmente ribaltato per fungere 
da supporto alla scatola che può restare 
così aperta sul tavolo di lavoro, facilitando 
la visione dei dischi senza doverli estrarre. 
Vantaggi rispetto ad altre confezioni? Ri¬ 
gidità totale, costo limitato, praticità d’uso 
e ingombro ridotto. Il tutto per raggiun¬ 
gere l’obiettivo dell’alta affidabilità e sicu- 











rezza nell’uso dei supporti, per contribuire 
all’integrità dei dati. 

Me/norex Italia 
Via C. Menotti, 14 
20129 Milano 
Tel. 02-918441 



Quick Disk Drive 
per sistemi MSX 

L a Yashica propone un nuovo ac¬ 
cessorio per i computer che si 
rifanno allo standard MSX, già 
discretamente introdotto anche 
in Italia. È un lettore di dischi, il cui for¬ 
mato sconcerta parecchio, trattandosi del¬ 
l’ennesima variazione sul tema intorno ai 
tre pollici. Non contenti delle ampie possi¬ 
bilità di scelta offerte dal mercato (3” - 
3,25” - 3,5”), i progettisti della Yashica, 
già avvezzi a dilettarsi di computer come 
nel caso dell’YC 64, hanno sfornato un 
lettore di dischi da 2,8”, i più ridotti in 
questa fascia, capace di stipare 128 Kbyte 



su ogni supporto. Il sistema operativo, 
ampliato con una serie di comandi che 
permettono l’accesso diretto a dati e pro¬ 
grammi residenti su disco, non “brucia” la 
RAM riservata alle applicazioni. Alcuni di 
questi comandi aggiuntivi vengono asso¬ 
ciati ai tasti funzione per facilitare la vita 
all’utente: è in ogni caso possibile richia¬ 
marli esplicitamente mediante una serie di 
opportune Cali. Con una velocità di rota¬ 
zione di 423 giri al minuto c un tempo di 
trasferimento intorno ai 101 Kbit al secon¬ 
do, le prestazioni dichiarate dalla casa per 
il Quick Disk Drive sembrano essere in 
grado di soddisfare le esigenze degli ap¬ 
passionati che desiderano passare dal regi¬ 
stratore a cassette ad un supporto più co¬ 
modo, senza però spendere “un occhio 
della testa”. Le note informative parlano 
di un prezzo inferiore a quello di acquisto 
dell’home computer: è già qualcosa... 

Foma S.p.A. 

Via Tabacchi, 29 
101)2 Torino 
Tel. 011-899)9) 



Energia, un concetto 
in mostra 

partita in Febbraio da Bologna 
I e ha raggiunto Roma in Mag- 
■"1 gio, per fermarsi fino a fine Lu- 
^ glio, una mostra che si propone 

di essere un tentativo per avvicinare il 
vasto pubblico a quel complesso di proble¬ 
mi che stanno intorno al concetto di ener¬ 
gia. Realizzata dal comune di Bologna, 
Assessorato alla Cultura, in collaborazione 
con la Philips S.p.A., la mostra è divisa in 
tre sezioni: Energia e Materia (scienze fisi¬ 
che), Energia e Vita (biologia) e Energia e 
Società (attività umane). A disposizione 
dei visitatori una videoteca con 60 film 
nazionali ed esteri che riprendono ed ap¬ 
profondiscono le tematiche presentate nel¬ 
l’esposizione. Il criterio partecipativo del¬ 
l’esposizione viene esplicitato mediante e- 
sperimenti e dimostrazioni condotti da a- 
nimatori e dalla possibilità di intervenire 
su dispositivi progettati ad hoc per la rap¬ 
presentazione di alcuni fenomeni o princi¬ 


pi. Il contributo della Philips, presente fin 
dalle fasi di impostazione del lavoro, è 
rappresentato anche da una serie di oggetti 
prodotti dalla casa di Eindhoven e proget¬ 
tati in Europa: elettrodomestici, sistemi di 
illuminazione, personal e home computer, 
applicazioni, dal laser alla musica (com¬ 
pact disc) e alPimmaginc (videodisco). 

Co 1/1 ime di Bologna 
Assessorato alla Cultura 
Via Oberdan, 24 
40126 Bologna 
Tel. 041-446996 




Mettiamo un po’ 
d’ordine! 

D all’Inghilterra giunge un ac¬ 
cessorio semplice, un uovo di 
Colombo, capace di sollevare 
da piccoli fastidi un esercito di 
amatori alle prese con ... le prese. E un 



selettore a 3 ingressi e un’uscita che con¬ 
sente di collegare in permanenza ad un 
televisore fino a tre apparecchi ausiliari, 
scegliendo poi, per mezzo di un tasto, l’in¬ 
put desiderato in un certo istante. E possi- 

13 



















PERSONAL NEWS 



bile cosi connettere stabilmente ad un solo 
apparecchio TV l’antenna per la ricezione 
dei programmi, un computer ed una con¬ 
solle per videogiochi c scegliere poi como¬ 
damente quale collegamento utilizzare 
senza doversi districare in una marea di 
cavi. Garantito per 5 anni, MastcrSwitch 
costa 4,86 sterline, VAT esclusa, è prodot¬ 
to dalla Masterpiece e distribuito per l’e¬ 
stero da: 

ML Services 
)) Sbelga te Road 
Undon SW'tt iBA 
Eugland 



Interfaccia 

per radiocomunicazioni 
su C 64 

R adiomatori udite, udite! La 
scheda Com-In 64 trasforma il 
Commodore 64 in un sistema 
terminale per radiocomunica¬ 
zioni in Baudot, Morse, ASCII e SSTV. 
Oltre a ciò è possibile usare la scheda come 
modem telefonico, trasmettere e ricevere 
programmi BASIC e usare una sezione del 
programma come word processor. È suffi¬ 
ciente connettere l’interfaccia al computer, 
accenderlo c lavorare usando i 60 comandi 
previsti. È possibile usare anche il registra¬ 
tore a cassette o il disk drive per registrare 
dati c una stampante standard Commodo¬ 
re per averne una copia scritta. La flessibi¬ 
lità dell’hardwarc consente una precisa ta¬ 
ratura dei filtri e di tutte le caratteristiche 
della ricc-trasmissionc utilizzando sempli¬ 
ci istruzioni. 

Distribuzione: 

Bit Computers 
Piazza S. Michele, 9 
170)1 Allunga (SV) 

Tel. 0182 )))12 

A TIP' Studio S.n.c. 

Via Pestagai li, 7 
201)8 Milano 
Tel. 02-10220) 

14 



Gestione archivio 
fotografico per PC 

L o studio di Roberto Villa, per la 
distribuzione della New Revcr- 
sal Service, ha realizzato un pac¬ 
chetto per la gestione di archivi 
delle foto per amatori e, soprattutto, pro¬ 
fessionisti. È prevista una completa sche¬ 
datura di ogni immagine e la possibilità di 
ricerca consente di impostare più condi¬ 
zioni contemporaneamente. Gli acquirenti 
del package, che può essere eseguito indif¬ 
ferentemente su macchine con floppy o 
hard disk, riceveranno in omaggio una 
serie di programmi autodidattici c di utili¬ 
tà. 

A udiovi sitai Communìcation 
Via Aitino, ) 

20144 Milano 
Tel. 02-4962)) 



Rotocalco radiofonico 
d’informatica 

V a in onda su Radio Milano In¬ 
ternational, la gloriosa radio li¬ 
bera che ha recentemente fe¬ 
steggiato il suo ennesimo com¬ 
pleanno. “Computermania”, una trasmis¬ 
sione dedicata al piccolo oggetto della ri¬ 
voluzione elettronica. Presentata dal com¬ 
puter shop Logicai Station joot, la tra¬ 
smissione è condotta da due giornalisti 
specializzati e tratta amichevolmente di 
tutto ciò che riguarda il mondo della pic¬ 
cola informatica, ogni lunedì dalle 14,40 
alle 15 sui 98,100 e sui 101 MHz. Le rubri¬ 
che sono dedicate alle novità hardware e 
software, ai linguaggi di programmazio¬ 
ne, ai videogiochi ed ai programmi profes¬ 
sionali e vengono intervallate da brani mu¬ 
sicali suonati al calcolatore. Completano la 
trasmissione interviste a personaggi famo¬ 
si e sconosciuti, una hit parade settimanale 


del softwre più venduto e una serie di 
aneddoti c curiosità. 

logicai Station )ooi 
Piazza S. Maria Bell rade, 8 
20t2i Milano 
Tel. 02-8679)) 



Programmi didattici 
per Spectrum 

U n gruppo di docenti della Fa¬ 
coltà di Ingegneria dell’Uni¬ 
versità di Ancona ha prodotto 
una serie di programmi didat¬ 
tici per lo studio della chimica, che ora 
distribuisce per una valutazione (dietro 
rimborso delle spese postali e del suppor¬ 
to) a studenti ed insegnanti, ad esaurimen¬ 
to della scorta di 100 pezzi previsti. Realiz¬ 
zati per Spectrum 48 Kbyte RAM, i pro¬ 
grammi sono rivolti a studenti delle scuole 
superiori c del primo anno di università. Il 
supporto di distribuzione è la cassetta che 
contiene una dozzina di “pezzi” che spa¬ 
ziano dall’insegnamento dei simboli c del¬ 
le valenze alla titolazione. L’autore ringra¬ 
zia quanti vorranno collaborare, anche 
con suggerimenti e critiche, e prega di 
allegare il francobollo per la risposta. 

Dot/. Liberato Cardellini 
Facoltà di Ingegneria 
I 'ia della Montagnola, )0 
60128 Ancona 
Tel. 071-189)1 
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MISSIONE 


AFRICA 

Una “Nave della Pace" in partenza dall'Italia 
porterà in Africa soccorsi immediati e aiuti 
per un domani migliore con il vostro contributo. 



La “Nave della Pace”: blemi dello sviluppo han- 
uno strumento nuovo no offerto consigli per la 
per intervenire immedia- migliore attuazione del 
tamente là dove è neces- progetto. L’iniziativa ha 
sano un urgente soccorso ottenuto l’Alto Patronato 
a popolazioni gravemen- del Presidente della 
te colpite da calamità na- Repubblica Italiana, il 

Patrocinio 
dell’ONU, del¬ 
la Lega di So¬ 
cietà di Croce 
Rossa e di 
Mezza Luna 
Rossa e della 
Croce Rossa 
Italiana e il 
vita. contributo del 

Affinché questo risultato Dipartimento per la Ceio¬ 
sia raggiunto, gli aiuti perazione allo Sviluppo 
siano adeguati ed efficaci del Ministero degli Affari 
e la “Nave della Pace” Esteri. Il Comitato 
possa partire a pieno ca- “Nave della Pace” chiede 
rico occorrono offerte e a quanti comprendono la 
solidarietà da parte di necessità ed il valore 
tutti. Specialisti dei prò- dell’iniziativa, offerte di 


turali. Non 
porta solo aiuti 
immediati ma 
anche strumen¬ 
ti di lavoro e 
mezzi ausiliari 
idonei a realiz¬ 
zare migliori 

mnrtÌ7inni Hi 



mezzi e di beni indispen¬ 
sabili per i soccorsi di pri¬ 
ma necessità e per gli aiuti 
di sviluppo destinati a 15 
paesi dell’Africa. 



Nave della Pace 

COLMATO NAVI OCUA .AC* - VIALE I4A22IM 41 
Ut» ROMA TEA «Ol1447 3M1A1 


Da compilare in stampatilo ed inviare 
in busta chiusa a: 

Comitato Nave della Pace 
V.le Mazzini 41 - 00195 Roma. 

sr, ANCH’IO VOGLIO AIUTARE 
LA NAVE DELLA PACE A PARTIRE 
CON LE STIVE PIENE 

Cognome_ 

Nome_ 

Via_N_ 

CAP_ 


l.ocalitì 


Per questo ho deciso di inviare il mio 
contributo di 

O Ut. 10.000 i ] Lll. 50.000 
□ Lil. 25.000 : Ut. 100.000 o più 

tramite: 

□ Assegno non trasferibile intestato: 
Comitato Nave della Pace 

□ C/c postale n. 15285000 

C Bonifico bancario a credito 
del c/c n. 5100/51 c/o 
la Cassa di Risparmio di Roma 
sede centrale • 

Via del Corso, 320 - 00186 Roma 
Desidero una ricevuta del mio versamento. 


t 


spazio gratuito offerto dal Gruppo Editoriale Jackson 
































La simulazione 
dinamica di 
fenomeni continui 

Un uso intelligente del calcolatore 
per lo studio della realtà 

. 

di Franco Sardo 


H a inizio da questo numero u- 
na serie di articoli sulla simu¬ 
lazione dinamica realizzata 
mediante il computer. L'argo¬ 
mento è di grande interesse perché for¬ 
nirà al lettore lo strumento per studiare 
la realtà che lo circonda, riproducendo- 
la "in vitro" nel proprio calcolatore; po¬ 
tranno in questa maniera essere studiati 
fenomeni fisici, sistemi biologici, reazio¬ 
ni chimiche, impianti dotati di regolazio¬ 
ne automatica. 

Non essendo vincolati dalla materia, 
potremo realizzare esperimenti senza 
dover disporre di un laboratorio, di tec¬ 
nici e delle apparecchiature necessarie; 
per quel che riguarda, poi, gli impianti, si 
vedrà come è possibile collaudarne l’ef¬ 
ficienza e la funzionalità prima di averli 
costruiti. 

Per il tono divulgativo degli articoli, rivol¬ 
ti a tutti e non soltanto a degli specialisti, 
si dovranno necessariamente introdur¬ 
re delle approssimazioni e delle impreci¬ 
sioni. D’altronde l’obiettivo che si vuole 
conseguire è soltanto di trasmettere del¬ 
le idee e dei concetti di base; si rimanda 
quindi ai testi specifici per una trattazio¬ 
ne più rigorosa. 

Sulla simulazione al calcolatore sono 
già stati pubblicati degli articoli su Per¬ 
sonal Software (n. 10-11 e n. 22). Que¬ 
sta volta entreremo più in dettaglio de¬ 
scrivendo anche le tecniche da usare e 
ricorrendo a numerosi esempi. 

La simulazione al calcolatore può esse¬ 
re statica o dinamica, per unità discrete 
o nel continuo, e infine deterministica o 
stocastica; senza farci prendere dal pa¬ 
nico, esaminiamo cosa vuol dire tutto 
ciò. 

La simulazione statica si riferisce a fe¬ 


nomeni che non si evolvono nel tempo; 
la simulazione dinamica viceversa se¬ 
gue l’evolversi del fenomeno nel tempo, 
e quindi lo visualizza ad intervalli rego¬ 
lari per tutta la durata della simulazione. 
Si dice che la simulazione viene fatta per 
unità discrete quando l'argomento del 
fenomeno da studiare consiste in entità 
ben definite: persone in attesa ad uno 
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sportello, auto in fila, pezzi in una cate¬ 
na di montaggio. Quando invece l'argo¬ 
mento è una grandezza fisica che varia 
nel tempo con continuità, come la velo¬ 
cità di un corpo che cade o la tempera¬ 
tura di un cappuccino che si raffredda, 
allora la simulazione è nel continuo. 

La realtà si evolve nel tempo, quasi mai 
è statica. Un fenomeno o un esperimen¬ 
to deve essere simulato nel suo svolgi¬ 
mento temporale, e le grandezze in esa¬ 
me variano con continuità; noi quindi 
parleremo di simulazioni dinamiche nel 
continuo. 

Nell'effettuare un esperimento, possono 
intervenire fattori esterni casuali, come 
le variazioni della temperatura atmosfe¬ 
rica, o il guasto di una macchina. Se si 
introducono nella simulazione questi 


fattori casuali, mediante un opportuno 
utilizzo della funzione Rnd, in modo tale 
che ogni volta che si fa girare il pro¬ 
gramma vengano fuori risultati diversi, 
la simulazione si dice stocastica, perché 
stocastiche sono dette le variabili ca¬ 
suali. 

Se viceversa non esiste nell'esperimento 
o nel fenomeno alcun fattore di casuali¬ 
tà, ogni volta che ripeteremo la simula¬ 


zione partendo dagli stessi valori iniziali 
e con le stesse leggi otterremo lo stesso 
risultato. In questo caso il modello si 
dice deterministico. 

Vediamo adesso quali sono le applica¬ 
zioni pratiche dei programmi di simula¬ 
zione: abbiamo già parlato della possi¬ 
bilità di effettuare esperimenti fisici sen¬ 
za disporre delle attrezzature necessa¬ 
rie; diremo inoltre che è possibile, me¬ 
diante la simulazione, effettuare esperi¬ 
menti che non potrebbero essere realiz¬ 
zati altrimenti. 

Ad esempio, quale sarebbe il moto della 
Terra se Giove avesse una massa dop¬ 
pia di quella che ha? La risposta si può 
avere analiticamente mediante le leggi 
di Keplero e di Newton, ma se si vuole 
vedere l'effetto sperimentale è ovvio che 
bisognerà ricorrere alla simulazione. 
Altrettanto dicasi per reazioni nucleari o 



per il comportamento della materia nel¬ 
le spaventose condizioni di gravità e 
densità che si riscontrano in un buco 
nero. 

La simulazione è dunque un'alternativa 
al calcolo analitico, alternativa cui si 
ricorre quando il calcolo è troppo com¬ 
plesso, o quando si vuole seguire il feno- 
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meno nel suo evolversi e non in un mo¬ 
mento particolare. Il calcolo analitico si 
può paragonare a una foto, la simula¬ 
zione ad un filmato. 

D'altronde si sta facendo strada presso 
la comunità scientifica la convinzione 
che esistono dei fenomeni che non pos¬ 
sono essere descritti da leggi fisiche, ma 
solo dalla simulazione. La legge fisica è 
in questi casi sostituita da un algoritmo 
risolutivo. 

Mediante la simulazione si possono 
inoltre verificare sistemi di regolazione 
automatica, naturali o costruiti dall’uo- 
mo; si controllerà, simulandoli, che essi 
riescano realmente a mantenere le con¬ 
dizioni richieste senza pendolazioni; si 
può arrivare, come si diceva prima, a 
verificare la funzionalità di un impianto, 
cioè a collaudarlo, prima di averlo co¬ 
struito. 

Tutto ciò presenta delle difficoltà tecni¬ 
che che sono state in passato oggetto di 
studi approfonditi. In particolare, la si¬ 
mulazione dinamica di fenomeni conti¬ 
nui cozza contro difficoltà matematiche 
considerevoli. Ciò perché la realtà che si 
evolve nel tempo è descritta da equazio¬ 
ni differenziali, cioè da equazioni che 
mostrano la variazione (in questo caso 
nel tempo, istante per istante) della 
grandezza in esame. 

Esse fanno parte di una branca della 
matematica che si chiama calcolo infini¬ 
tesimale, introdotto a suo tempo da 
Newton e Leibniz. 

Alcuni di noi saranno probabilmente in 
grado di risolvere un’equazione diffe¬ 
renziale, ma purtroppo ogni fenomeno 
fisico coinvolge di solito più variabili, ed 
è pertanto descritto da un sistema di più 
equazioni differenziali; si arriva così fa¬ 
cilmente a livelli di difficoltà tali da met¬ 



tere in crisi il più preparato dei matema¬ 
tici. 

Ad esempio, un corpo che cade nell’aria 
varia continuamente la propria velocità, 
secondo la seguente legge: 

dV/dT = g-kV12 

Questa equazione dà la variazione infi¬ 
nitesima di velocità dV nel tempo dT. La 


espressione dV/dT è la derivata della 
velocità rispetto al tempo, e viene chia¬ 
mata accelerazione. 

Non possiamo scrivere: 

(VI -V0)/(T1 -T0) = 9-kV12 

considerando una variazione finita di 
velocità in un intervallo di tempo finito; 
ciò sarebbe lecito solo se la velocità 
variasse linearmente entro l'intervallo di 
tempo considerato; cosa che non è, a 
meno di non considerare un intervallo di 
tempo infinitamente piccolo. 

La risoluzione di un’equazione diffe¬ 
renziale di questi tipo non presenta pro¬ 
blemi, e noi possiamo sapere facilmente 
quale sarà la velocità di un corpo dopo 
tre secondi di caduta. 

Ma, come si diceva, nei problemi che si 
presentano nella realtà le variabili sono 
numerose, e le equazioni complesse, 
tanto da rendere impossibile la soluzio¬ 
ne analitica. 

Occorre allora mettere a punto un siste¬ 
ma che permetta di studiare le variazioni 
delle grandezze, segnatamente nel tem¬ 
po, con metodi numerici, magari ap¬ 
prossimati, ma tuttavia accettabili. 
Poiché quindi risolveremo i nostri pro¬ 
blemi non teoricamente, ma sperimen¬ 
talmente con metodi numerici, potremo 
a buon diritto parlare di matematica 


sperimentale. 

Nel nostro studio della simulazione di¬ 
namica cominciamo quindi a mettere a 
punto questo metodo: e lo faremo utiliz¬ 
zando l’esempio dell’oggetto che cade 
nell’aria. 

Nell’equazione riportata si vede che 
l’aumento della velocità al passare del 
tempo è direttamente proporzionale a 9 
(accelerazione di gravità, pari a 9,81 
m/sec per secondo) e inversamente 
proporzionale al quadrato della velocità 
a causa dell'aumentare, con la velocità 
stessa, della resistenza dell’aria. 

K è una costante di proporzionalità che 
dipende da vari fattori, e che a titolo 
esemplificativo porremo pari a 0,006. Il 
termine KV12 ha il segno meno perché 


provoca una diminuzione della velocità. 
Chiamiamo A questa variazione di velo¬ 
cità dV/dT (accelerazione); avremo: 

A = g - kV12 

Questa viene chiamata equazione di 
Tasso, perché ci dà il tasso di variazione 
della grandezza V. 

Se la velocità iniziale è V0, la velocità 
dopo un piccolissimo intervallo di tem¬ 
po sarà: 

VI = V0 + AdT 

cioè sarà aumentata del tasso di au¬ 
mento istantaneo moltiplicato per l’in¬ 
tervallo di tempo considerato. 

Poiché dopo questo intervallo la veloci¬ 
tà si sarà stabilita ad un nuovo livello, 
come una bottiglia parzialmente piena 
in cui abbiamo aggiunto un po' d’ac¬ 
qua, questa viene chiamata equazione 
di Livello. 


Se il dT fosse infinitamente piccolo, l’e¬ 
quazione sarebbe risolta in maniera e- 
satta, ma ciò comporterebbe un numero 
infinito di calcoli; si considera allora, per 
una soluzione approssimata, un valore 
di dT piccolo ma finito; nel caso del 
corpo che cade, un valore adeguato 
potrebbe essere 0,01 secondi. 

Se vogliamo allora sapere quale sarà 
la velocità dopo tre secondi di caduta, 
dovremo spezzettare questi tre secondi 
in 300 intervalli di 0,01 sec; in ogni inter¬ 
vallo calcolare il tasso di variazione del¬ 
la velocità A, e aumentare la velocità di 
un valore pari a questo tasso moltiplica¬ 
to per l’intervallo considerato. 

Nel calcolo dell'equazione di tasso use¬ 
remo, come valore da sostiutire in VI2, 
ogni volta il valore determinato dall'e¬ 
quazione di livello del ciclo precedente. 
Il livello di V continuerà quindi a crescere 
di valori piccolissimi. 

Come si vede, è indispensabile cono¬ 
scere le condizioni iniziali (cioè la veloci- 
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tà al tempo 0). Dovremo inoltre costruire 
un ciclo, (che si ripete N volte fino ad 
arrivare al tempo desiderato) in cui si 
alternano un'equazione di tasso ed una 
di livello. 

Col metodo descritto si ottengono delle 
buone approssimazioni al valore esatto. 
Che l'approssimazione sia buona si ve¬ 
rifica effettuando varie prove, ogni volta 
riducendo l’intervallo di tempo (detto 
intervallo di soluzione). Se continuando 
a ridurlo non si hanno variazioni ap¬ 
prezzabili nel valore della grandezza al 
tempo T (nel nostro caso nel valore della 
velocità dopo tre secondi), vuol dire che 
il valore ottenuto è abbastanza vicino a 
quello reale. 

Risolvere un'equazione differenziale si 
dice integrarla; il procedimento descrit¬ 
to è un'integrazione alle differenze finite. 
Esistono altri sistemi di integrazione alle 
differenze finite più accurati, ma questo 
è senz'altro il più semplice. 

Per chiarire quanto detto, realizziamo 
ora il programma per calcolare la velo¬ 
cità di caduta di un corpo nell’aria. 

La struttura del programma sarà la se¬ 
guente: 


1 - introduzione dei valori delle costanti; 

2 - introduzione valori iniziali delle varia¬ 
bili; 

3 - introduzione dell'intervallo di solu¬ 
zione e della durata della simulazione; 

4 - ciclo con visualizzazione dei risultati 
intermedi; 

5 - stampa dei risultati finali. 

I punti 1, 2. 3 e 5 sono, secondo il lin¬ 
guaggio della programmazione struttu¬ 
rata, "action blocks”, senza alcun pro¬ 
blema. 

II punto 4 è un loop, che in BASIC va 
impostato cosi: 

400 REM loop 
410: T=T + dT 
420: A = g-k*V12 
430: V = V + A*dT 
440 IF T>TMAX THEN 500:REM 
condizioni di uscita 
450 GO TO 400 
500 REM end loop 

La linea 410 è il contatore del tempo, 
essenziale in ogni programma di simu¬ 
lazione dinamica. 

La linea 420 è l'equazione di tasso, che 
calcola il tasso di variazione della velo¬ 
cità nell'intervallo di tempo considerato, 


e la linea 430 è l'equazione di livello, che 
modifica il livello della grandezza in esa¬ 
me, nella fattispecie la velocità. L’intero 
programma sarà allora quello riportato 
nel listato 1. 

Il programma visualizza l’andamento 
della velocità nel tempo, e stampa il suo 
valore alla fine del periodo considerato. 
Disponiamo adesso di uno strumento 
per studiare l’evolversi dei fenomeni nel 
tempo. Abbiamo realizzato una simula¬ 
zione estremamente semplice, ma lo 
stesso metodo potrà essere applicato a 
simulazioni più complesse: sarà suffi¬ 
ciente conoscere le equazioni che de¬ 
scrivono il sistema da studiare, cioè il 
suo modello matematico. 

Abbiamo visto come i fenomeni fisici e 
la realtà in generale non siano facili da 
simulare dinamicamente, perché il loro 
evolversi nel tempo è descritto da siste¬ 
mi di equazioni differenziali. 

Abbiamo allora risolto una equazione 
differenziale con un metodo alle diffe¬ 
renze finite, mediante equazioni di tasso 
ed equazioni di livello, e con ciò abbia¬ 
mo simulato la caduta di un corpo nel¬ 
l'aria. 


TABELLA DI CONVERSIONE 


(HOME).HOME 

{CLR}.PULIZIA SCHERMO 

{CUR.SU}.CURSORE IN ALTO 

{CUR.GIU}.CURSORE IN BASSO 

{CUR.DES}.CURSORE A DESTRA 

{CUR .SIN }.CURSORE A SINISTRA 

{SPC}.SPAZIO 

{RVS ON).REVERSE 0N 

{RVS OFF).RE VERSE OFF 

{INST}.INSERT 

{FI }.TASTO FI 

{F2}.TASTO F2 

{F3}.TASTO F3 

{FM}.TASTO F4 

{F5}.TASTO F5 

{F6}.TASTO F6 

{F7}.TASTO F7 

{F8}.TASTO F8 

{BLACK}.COL. NERO (CTRL+1 ) 

{WHITE}.COL. BIANCO (CTRL+2) 

{RED}.COL. ROSSO (CTRL+3) 


{CYAN }.COL. CIANO (CTRL+4) 

{PURPLE}.COL. PORPORA (CTRL+5) 

{GREEN}.COL. VERDE (CTRL+6) 

{BLUE}.COL. BLU (CTRL+7) 

{YELLOW}.COL. GIALLO (CTRL+8) 

{0RANGE}.COL. ARANCIO (CBM+1 ) 

{BROWN}.COL. MARRONE (CBM+2) 

{LT.RED}.COL. ROSSO CHIARO (CBM+3) 

{GRAY1 }.COL. GRIGIO 1 (CBM + M) 

{GRAY2}.COL. GRIGIO 2 (CBM+5) 

{LT.GREEN).COL. VERDE CHIARO (CBM+6) 

{LT.BLUE}.COL. BLU CHIARO (CBM+7) 

{GRAY3}.COL. GRIGIO 3 (CBM+8) 


I CARATTERI GRAFICI, OTTENUTI CON LA 
PRESSIONE DEI TASTI 'SHIFT' E 'CBM', 
SONO CODIFICATI IN MODO DA INDICARE IL 
TASTO DA PREMERE ASSIEME A 'SHIFT' 0 
'CBM'. ES. IL CUORICINO E' CODIFICATO 
CON {SH S}. 

UN NUMERO DENTRO LE PARENTESI INDICA 
LE VOLTE CHE IL TASTO VA PREMUTO. 
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Listato 1 - Il programma che visualizza l'andamento della velocità 
nel tempo. 

100 REM a***************************** 
110 REM * SOLUZIONE DI EQUAZIONI * 
120 REM * DIFFERENZIALI * 

130 REM **#*»##*#»*##*##*#*#*»#»#***## 
140 : 

150 : 

160 REM COSTANTI 

170 REM - 

180 G-9.81:K=0.006 
190 : 

200 REM DURATA 
210 REM - 

220 PRINT"{CLR}":PRINT"DURATA DELLA SIMU 
LAZIONE:"j 
230 INPUT TMAX 
240 : 

250 REM INTERVALLO DI SOLUZIONE 

260 REM--- 

270 PRINT:PRINT"INTERVALLO DI SOLUZIONE: 


u. 

280 INPUT DT 
290 : 

300 REM CONDIZIONI INIZIALI 

310 REM-- 

320 V=0:T=0 
330 : 

400 REM LOOP 
410 REM - 

420 :T=T+DT :REM CONTATORE DEL TEMPO 
430 :R=G-K*V*V: REM EQUAZIONE DI TASSO 
440 :V=V+R#DT : REM EQUAZIONE DI LIVELLO 
450 :IF T >= TMAX THEN 500 
460 GOTO 400 
470 : 

500 REM STAMPE FINALI 
510 REM - 

520 PRINT"{5 CUR.GIU}TEMPO,SEC:";INT(T#1 
00)/100 

530 PRINT"{CUR.GIUJVELOCITA',M/SEC:";INT 
(V*100)/100 

540 GET A$:IF A$-"" THEN 540 


Vediamo adesso di applicare questo 
metodo a simulazioni più complesse. 
Immaginiamo un recipiente in cui avvie¬ 
ne una reazione chimica (reattore); im¬ 
maginiamo che la reazione sia esoter¬ 
mica e che il recipiente sia mantenuto a 
temperatura costante mediante acqua 
che passa entro una camicia di raffred¬ 
damento; il sistema è descritto: 

1) dall’equazione cinetica che dà la 
velocità di reazione; 

2) dalla equazione che dà l'aumento 
della velocità di reazione aH'aumentare 
della temperatura; 

3) dall’equazione che descrive la tra¬ 
smissione del calore attraverso le pareti 
del recipiente; 

4) dall'equazione che descrive l'aumen¬ 
to di temperatura del liquido refrigeran¬ 
te fra ingresso e uscita della camicia. 
Tutto ciò senza tener conto della agitar 

zione, delle dispersioni di calore verso 
l’esterno (si considera il recipiente per¬ 
fettamente coibentato) e di tanti altri 
fattori. 

Malgrado le semplificazioni introdotte, 
abbiamo già quattro equazioni, che, 
comportando variazioni continue nel 
tempo, saranno equazioni differenziali. 


Il sistema è dunque descritto da un mo¬ 
dello matematico costituito da quattro 
equazioni. Se le conosciamo, e dispo¬ 
niamo di alcuni parametri che vi com¬ 



più bassa, o ad un'aggiunta graduale 
dei reagenti. 

Così facendo, avremo sostituito la realtà 
col modello matematico della realtà, e 
tante più variabili avremo considerato, 
tanto più il modello sarà aderente alla 
realtà, e tanto più utile sarà la simulazio¬ 
ne. 

Una volta disponibile il modello, cioè 
note le equazioni che descrivono il siste¬ 
ma e i parametri lì presenti, il passaggio 
al programma di simulazione è quello 
già descritto: avremo una serie di equa¬ 
zioni di tasso e di equazioni di livello 


paiono, quali il calore di reazione, i coef¬ 
ficienti di trasmissione del calore dei 
materiali impiegati, Ja_.superficie_della 

camicia di raffreddamento, ecc., potre¬ 
mo simulare con sufficiente esattezza il 
sistema prima ancora di costruirlo; se 
dalla simulazione emerge che non si 
riesce a mantenere la temperatura entro 
limiti accettabili, dovremo ricorrere ad 
un altro sistema di raffreddamento, o ad 
un liquido refrigerante a temperatura 


alternate fra loro. 

Nell’esempio in questione, avremo una 
temperatura iniziale e una concentra¬ 
zione iniziale dei reagenti. Da questi livel¬ 
li iniziali, mediante le equazioni di tasso, 
sapremo di quanto aumenta la tempe¬ 
ratura nel minuscolo intervallo di tempo 
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considerato e di quanto diminuisce la 
concentrazione dei reagenti. La tempe¬ 
ratura del reattore sarà dunque ad un 
nuovo livello; dalla temperatura del 
reattore e da quella del liquido di raf¬ 
freddamento sapremo, mediante l'e¬ 
quazione di tasso che descrive la tra¬ 
smissione del calore, la quantità di calo¬ 
re che passa al fluido di raffreddamen¬ 
to. 

La temperatura del fluido si stabilirà ad 
un nuovo livello, e cambierà di conse¬ 
guenza la temperatura del reattore; a 


questo punto si considera un nuovo 
intervallo di tempo e il ciclo ricomincia, 
con tutte le variabili al valore a cui erano 
rimaste alla fine del ciclo precedente. 
La struttura generale del programma 
sarà quindi ancora una volta: 

1) inserimento valori delle costanti; 

2) inserimento valori iniziali delle varia¬ 
bili; 

3) ciclo: 

• equazioni di tasso + equazioni di 
livello; 

• visualizzazione o stampa dei risultati 


al tempo T; 

• incremento del tempo. 

Può succedere che il passaggio dalle 
equazioni di tasso alle equazioni di li¬ 
vello non sia immediato; cioè, ad esem¬ 
pio, dalla equazione di tasso avremo 
saputo che neirintervallo di tempo con¬ 
siderato si sviluppano dalla reazione 
12.500 Kcal. Il livello che deve essere 
incrementato è invece la temperatura 
del reattore; occorrerà allora un'equa¬ 
zione intermedia, che trasformi il calore 
espresso in Kcal nel corrispondente 


Listato 2 - Il programma per la simulazione del raffreddamento di 
un serbatolo. 


100 REM ««««a***#*#»»**»***»*****#***** 
105 REM * SIMULAZIONE RAFFREDDAMENTO * 
115 REM * DI UN SERBATOIO * 

120 REM a***»***»*»*#»*»»**»»********** 
130 : 

1 40 : 

150 REM DATI 
160 REM **** 

170 T0 =170: REM TEMP.INTERNA 

180 TM =35 : REM TEMP.MEDIA FLUIDO RAF 

FREDDAMENTO 

190 KG = 35000:REM MASSA DA RAFFREDDARE 
200 CS =1 : REM CALORE SPECIFICO 

210 S =32 : REM SUPERFICIE DI SCAMBIO 

215 PO =2200 : REM PORTATA A.DI TORRE 

220 QT»0 : REM CALORE TOTALE SOTTRAT 

TO AL SISTEMA 

225 K=600 : REM C0EFF.DI SCAMBIO TERM 

ICO 

227 MIN=0 : REM CONTATORE DEL TEMPO 

228 : 

229 : 

230 REM INIZIALIZZAZ.STAMPA 

231 REM ******************* 

232 OPEN4.4 

233 PRINT/)4,"MIN{7 SPC}Q0RARI0{5 SPCjQMI 
N{5 SPC}DT{7 SPC}TINT{6 SPC}T USCITA 
{4 SPCJQTOT" 

-2 ?4 -pR IN T» 4 - 

235 : 

240 : 

250 REM EQUAZ. DI TASSO 
260 REM *************** 

270 QH=K*S* (T0-T1 ) 


280 : 

290 : 

300 REM EQUAZIONI INTERMEDIE 
310 REM ******************** 

320 QMIN=QH/60 
330 DT= QMIN/(CS*KG) 

3110 TU=30+QMIN/PO 
350 TM»(30+TU)/2 
360 : 

370 : 

400 REM EQUAZIONI DI LIVELLO 
410 REM ******************** 

420 QT= QT+QMIN 
430 T0=T0-DT 
450 : 

460 : 

500 REM STAMPA 
510 REM ****** 

520 PRINT04,CHR$(16)CHR$(48)CHR$(0)MIN; 
530 PRINTff4,CHR$( 1 6)CHR$(49)CHR$(0)1NT(Q 
H): 

540 PRINT//4 ,CHR$( 16 )CHR$(50)CHR$(0)INT(Q 
MIN); 

550 PRINT//4 ,CHR$( 1 6)CHR$(51 )CHR$(0 )INT(D 
T*100)/100; 

560 PRINm,CHR$O6)CHR$(52)CHR$(0)INT(T 

0 ); 

570 PRINT//4 , CHR$ ( 1 6 )CHR$ (53 )CHR$(0 )INT(T 

U); 

580 PRINT//4 ,CHR$( 16)CHR$(54)CHR$(0)INT(Q 
T) 

*m—. - 

600 : 

610 MIN=MIN+1 
620 : 

630 : 

640 GOTO 250 
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aumento di temperatura. Basterà divi¬ 
dere il calore per la capacità termica del 
sistema; (sommatoria delle masse pre¬ 
senti ognuna moltiplicata per il suo ca¬ 
lore specifico). 

Ecco allora che nell'alternanza fra 
equazioni di tasso ed equazioni di livello 
possono inserirsi delle equazioni inter¬ 
medie, che rendono i risultati in uscita 
dalle une accettabili come dati in entra¬ 
ta per le altre. 

Inoltre, bisognerà essere cauti nella 
scelta dell'Intervallo di soluzione, cioè 
del lasso di tempo simulato fra una serie 
di calcoli e la successiva. 

Se il fenomeno è la caduta di un corpo 
nell'aria, un intervallo di soluzione di 0,1 
secondi è troppo grande un intervallo di 
0,01 sec è adeguato, perchè si tratta di 
un fenomeno che si evolve rapida¬ 
mente. 

Nel caso di una reazione chimica, un 
intervallo di un minuto può essere suffi¬ 
ciente, ma nel caso di reazioni biologi¬ 
che molto lente (fermentazioni) posso¬ 
no essere sufficienti anche intervalli di 
un'ora. 

Un intervallo troppo lungo porta a risul¬ 
tati grossolanamente approssimati, 
mentre un intervallo troppo corto porta 
a moli enormi di calcoli e quindi a tempi 
di elaborazione inaccettabili. 



Bisogna partire da intervalli di soluzione 
piuttosto lunghi, e poi continuare ad 
accorciarli finché i risultati non presen¬ 
tano più variazioni significative. 

Vedremo adesso, come esempio di 
costruzione di un modello matematico e 
del suo impiego per la simulazione, il 
raffreddamento da 170° a 60°C di un 
serbatoio pieno di un prodotto. 

Il prodotto chimico deve essere raffred¬ 
dato prima di mandarlo alle lavorazioni 
successive. A tale scopo si manda nella 
camicia del serbatoio acqua di raffred¬ 
damento a 30°C; determineremo quan¬ 
to tempo e quanta acqua sono neces¬ 
sari, in modo da poter stabilire il ciclo di 
lavorazione e da poter determinare il 


diametro delle tubazioni dell'acqua. Di¬ 
ciamo già che risolvere il problema ana¬ 
liticamente, senza ricorrere alla simula¬ 
zione, non è alla portata di tutti, e inoltre 
richiederebbe una gran mole di calcoli. 
Secondo lo schema riportato prima, il 
programma ha inizio con l'inserimento 
delle costanti delle equazioni: 

• massa da raffreddare, Kg: 35000 kg 

• calore specifico, Cs: 1 cal/gr 

• superficie scambiarne, S: 32 mq 

Da alcuni semplici calcoli, conoscendo i 
materiali impiegati, si determina il coeffi¬ 
ciente di scambio termico, k: 

k = 600 Kcal/h. mq. 'C 

Si stabiliranno quindi i valori iniziali delle 
variabili: 

• Temperatura interna, T0: 170°C 

• Temperatura del fluido 

di raffreddamento, TM: 30°C 

Per quel che riguarda la portata del 
fluido di raffreddamento, si parte da un’i¬ 
potesi, 2.200 It/min. Se questa portata si 
rivelerà insufficiente nel corso della si¬ 
mulazione, potremo aumentarla in se¬ 
guito. 

Si pone quindi a zero il contatore del 
tempo, che chiameremo MIN ( = minuti); 
useremo infatti un intervallo di soluzione 
di un minuto, cioè la situazione del siste¬ 
ma sarà aggiornata e visualizzata di mi¬ 
nuto in minuto. 

Porremo inoltre a zero un'altra variabile, 
Qtot, ove accumuleremo il calore disper¬ 
so ad ogni ciclo. 


Ciò ci servirà per verificare, al termine 
della simulazione, che il calore totale per¬ 
so dal serbatoio per arrivare a 60°C cor¬ 
risponda al valore teorico. 

Finite le inizializzazioni, si introduce una 
linea per la stampa dei fitòfr in testa alla 
tabella che conterrà i risultati; questi ver¬ 
ranno stampati ciclo per ciclo. Inizia 
quindi il ciclo. 

Si parte con l 'equazione di tasso: il calore 
disperso attraverso la camicia di raffred¬ 
damento sarà: 


Qh = KS(TO-TI) 

Poiché K ha dimensioni Kcal/h.mq.°C, il 
Qh sarà espresso in Kcal/h. L’equazione 
riportata è in forma finita, il che avrebbe 
senso solo se il calore disperso nell'unità 
di tempo fosse costante; nel nostro caso 
essa varia man mano che il reattore si 
raffredda, per cui dovremo usare inter¬ 
valli di tempo molto piccoli; altrimenti a- 
vremmo dovuto scrivere, in forma diffe¬ 
renziale: 

dQ/dT = KS(TO-TI) 

Seguono le equazioni intermedie ; come 
prima cosa bisogna conoscere il calore 
disperso in un minuto: 

Qmin = Qh/60 

Poi bisogna sapere di quanto si abbassa 
la temperatura per effetto della disper¬ 
sione di questo calore: 

dT = Qmin/(Cs ★ Kg) 

come si diceva, Cs*Kg, Kg di massa 
che si raffredda moltiplicato per il suo 
calore specifico, è la capacità termica 
del sistema, e quindi dt è l'abbassamen¬ 
to di temperatura che si verifica in un 
minuto nel reattore. 

Questo calore disperso di trasferisce al 
fluido della camicia, riscaldandolo: 

Tu (temperatura di uscita) = 30 (tempe¬ 
ratura di ingresso) + Qmin/po 

dove Po è la portata dell’acqua di raf¬ 
freddamento, in litri/min. 

Si badi bene che questa non è un'equa¬ 
zione di livello: il liquido, che entra sem¬ 
pre a 30°C, uscirà ad ogni ciclo ad una 
temperatura diversa, decrescente man 
mano che il reattore si raffredda. Non si 
ha quindi quel fenomeno di accumulo 


tipico delle equazioni di livello, in cui ad 
ogni ciclo si aggiunge al valore prece¬ 
dente la variazione intercorsa durante il 
ciclo stesso. 

l_a temperatura media del liquido alI'Tiv 7 
terno della camicia sarà, in prima ap¬ 
prossimazione: 

TM = (30 + Tu)/2 

Infine abbiamo le equazioni di livella, le 
grandezze di cui ci interessa studiare il 
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livello sono due: la temperatura interna 
del reattore e il calore totale disperso. 
Scriveremo: 

TO - TO - dT 
Otot = Qtot + Qmin 

Cioè nell'intervallo di soluzione (un mi¬ 
nuto) la temperatura del reattore sarà 
scesa di dT e il calore totale che il reattore 
ha disperso dall'inizio del raffreddamen¬ 
to sarà aumentato di Qmin. 

Concluso il ciclo, si stampano i valori 
ottenuti: 

• MIN: tempo trascorso dall'inizio della 
simulazione, in minuti; 


• Qh: il calore che il reattore disperdereb¬ 
be in un'ora, in Kcal/hr; 

• Qmin: il calore disperso in quel minuto, 
in Kcal/min; 

• dT: la variazione di temperatura avuta¬ 
si in quel minuto nel reattore; 

• TO: la temperatura interna del reattore; 

• Tu: la temperatura di uscita dell'acqua 
di raffreddamento; 

• Qtot: il calore totale disperso dal reatto¬ 
re dall'inizio del raffreddamento fino a 
quel momento. 

Ciò fatto, si incrementa il contatore del 
tempo: 

MIN = MIN + 1 


Figura 1 - 
Un esempio 
di simulazione 
più complessa. 


Figura 2 • 

Un grafico 
della velocità 
in funzione 
del tempo. 




e si ricomincia il ciclo, questa volta utiliz¬ 
zando come valori di entrata delle equa¬ 
zioni di tasso i valori di livello del ciclo 
precedente. 

Si sono introdotte, con questa simulazio¬ 
ne, alcune approssimazioni, particolar¬ 
mente due: 

• la prima, che tutto il calore disperso 
dalla massa nel reattore vada nell'acqua 
di raffreddamento; ciò è legittimo, perché 
si considera il reattore coibentato e quin¬ 
di trascurabili le dispersioni nell'ambien¬ 
te; 

• la seconda, che il liquido di raffredda¬ 
mento abbia un gradiente di temperatu¬ 
ra uniforme fra ingresso e uscita. Come 
sua temperatura abbiamo infatti assun¬ 
to la media aritmetica fra T di ingresso e T 
di uscita. Cosa inesatta, ma poiché que¬ 
sta differenza non è alta (al massimo 
20°C) l'approssimazione introdotta non 
ha effetti rilevanti. 

Dalla simulazione otterremo due infor¬ 
mazioni essenziali per la progettazione 



del sistema: in quanto tempo il reattore 
scende a 60°C (che è la temperatura che 
vogliamo) e a che temperatura esce l'ac¬ 
qua di raffreddamento in ogni minuto. 
Ciò è importante perché l'acqua di raf¬ 
freddamento di solito proviene dalle torri 
evaporative, arriva sui 30°C e non la si 
può rimandare alle torri a temperatura 
superiore ai 40/45 °C. 

Se quindi si verificasse tramite la simula¬ 
zione che l’acqua esce dalla camicia a 
temperatura maggiore, occorrerà inevi¬ 
tabilmente aumentarne la portata. Infatti, 
la simulazione in questione portò alla 
decisione di usare 2.500 It/min di acqua 


inizialmente previsti. 
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I l programma è previsto per com¬ 
puter PB-100, PB-200, e PB-300 e 
con qualche accorgimento su 
FX-702. 

Normalmente un programma per ge¬ 
stione di dati, come quello di un’agenda 
telefonica, richiede una forte occupa¬ 
zione di memoria che pocket-computer 
come questi non sono in grado di gesti¬ 
re. Si pensi infatti che, nella biblioteca di 
programmi fornita all'acquisto del PB- 
100, viene fornito il listato di un pro¬ 
gramma che consente di registrare il 
numero di telefono e il nome di sole 14 
persone. Aggiungendo la memoria di 
RAM (opzionale), è possibile registrare 
informazioni per 50/55 persone. 

Il programma proposto vuole supplire 
a questa lacuna colmabile solo con lo 
sfruttamento di una memoria di massa 
esterna: tipicamente, un registratore a 
cassette. 

Gli elementi hardware in questione so¬ 
no: il computer PB-100 (espanso) o PB- 
200. L'interfaccia FA-3 per registrare, il 
registratore a nastro ed eventualmente 
la stampante FB-12. 

Il programma si divide in 2 parti. La 
prima parte di registrazione fa memoriz¬ 
zare al nastro i dati interessanti secon¬ 
do un certo formato.La seconda parte 
di "caricamento'' si occupa della ge¬ 
stione degli stessi. 

Riceve le informazioni necessarie, le 
cerca sul nastro, procede ai dovuti con¬ 
trolli e, infine si occupa di fornirli all’u¬ 
tente sull'unità periferica scelta: visore o 
stampante. 

Il tempo di lavoro del sistema nella ri¬ 
cerca dei dati su cassetta è abbastanza 
alto. Ciò è dovuto al lento movimento del 
registratore e alla ricerca sequenziale 
dell'informazione. D'altronde questi 
pocket-computer non dispongono di 
drive o micro drive e per avvalerci di 
memorie esterne di massa non possia¬ 
mo che usare esclusivamente dei regi¬ 
stratori a cassetta. 

Un secondo svantaggio è dovuto alle 
limitate capacità delle variabili di carat¬ 
tere, che possono immagazzinare solo 7 
caratteri, fatta eccezione per la variabile 
-diearattereeselusiva-$,-Ghe ne-puòeon- 
tenere fino a 30. 

Delegando proprio quest'ultima regi¬ 
strazione dei dati, dovremo dare a que¬ 
sta variabile un formato per consentire 
una facilità di gestione e un numero 
sufficiente di informazioni, entro natu¬ 
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ralmente i 30 caratteri. 

Come vantaggi si hanno: 

1) la possibilità di aumentare notevol¬ 
mente la capacità di gestione dei dati 
del pocket; 

2) immagazzinare gli stessi in una sem¬ 
plice cassetta di pochissimo ingombro, 
non più a portata di mano di estranei, 
ma di computer; 

3) una parte di programma che agevola 
la ricerca dei dati, lavorando autono¬ 
mamente, evitando di farci sfogliare pa¬ 
gine di guide, agende, taccuini, con il 
rischio di farci confondere. 

Esaminati i principali prò e contro, pas¬ 
siamo al funzionamento del program¬ 
ma. 

Accesa l'unità con relativa interfaccia, il 
registratore e l'eventuale stampante, 
abbiamo subito la possibilità di sceglie¬ 
re tra le 2 modalità di lavoro: 

• Reg che sta per registrazione dei dati; 

• Car caricamento del o dei dati. 
Digitando la lettera R entriamo nella fa¬ 
se di registrazione. 

La prima domanda che ci viene posta 
riguarda il numero di input, cioè di dati, 
che vogliamo registrare. Impostato il nu¬ 
mero voluto, ecco comparire l'ordine nel 
quale bisogna immettere i dati in una 
registrazione: Cognome, Nome N° tele¬ 
fonico, Città con la sigla, costituente la 
stringa di caratteri da registrare. Poiché 

Figura 1 - Suddivisione della stringa in 3 campi. 


per ciascuna stringa si hanno a disposi¬ 
zione solo 30 caratteri, si dovrà scegliere 
e unificare un formato per permettere di 
immagazzinare il massimo numero di 
informazioni sufficienti e distinguibili, 
per poi estrapolarle al momento della 
richiesta. 

A tal fine la stringa di caratteri viene 
divisa in 3 campi. I primi 19 caratteri 
contengono cognome e nome dell’inte¬ 
ressato; i seguenti 8 caratteri sono riser¬ 
vati al numero di telefono. I restanti 3 
invece, sono il campo destinato a conte¬ 
nere la sigla della città o, se preceduto 
dal simbolo ★, della provincia come rife¬ 
rimento all’eventuale prefisso telefonico 
(figura 1). 

Il primo campo presenta un’ulteriore di¬ 
visione. I primi 11 caratteri, infatti, sono 
destinati alla registrazione del cognome 
o di una sua abbreviazione, gli ulteriori 8 
caratteri al nome. Il numero di telefono 
può spaziare tra i caratteri compresi tra 
il 19° e il 27°. 

È importante registrare la sigla della 
città tra il 28° e il 30° carattere, sostituen¬ 
do uno spazio al simbolo ★ se non oc¬ 
corresse. Una volta impostato e control¬ 
lato il giusto formato, si posiziona il regi¬ 
stratore nella modalità di registrazione; 
dopo aver digitato i dati sul computer, 
penserà il programma a trasferirli nel 
nastro, e a richiederci un nuovo dato. 


Cognome 

Nome 

6086481 

★ MI 




07 

1 

ri 

rtt 


1° Campo 
Cognome e Nome 


2° Campo 

N° telefono 

3° Campo 

Sigla Città 
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CASIO PB-100-200-300 


Figura 2 - Alcuni esempi, così come vengono 
stampati. 


**** ATTENDERE **** 
Fsnecco Fabio 
6836481 «Il 


***** LIST ***** 

Fanecco Fabio 6 
986431 ili 


Bellone Stefano 
8690178 ili 


***** LIST ***** 


Posiìani 

T itti 

4694316 ili 


Bardella 

Emanuela 

007711J ni 

Bardella 

Russerò 

363354 MI 


Ferrare 

Fabrizio 

314221 VC 


De Micheli 

Anseìo 

744121 MI 


Mazzoni 

itoselo 

4233161 MI 



È da sottolineare in questo caso l'utilità 
di poter disporre di un registratore muni¬ 
to di telecomando, che facilita notevol¬ 
mente le operazioni di ingresso e uscita. 
La quantità di informazioni che si pos¬ 
sono accumulare sono direttamente 
proporzionali alla durata della cassetta. 
Su una facciata di una cassetta C 60 
siamo nell'ordine delle centinaia. 
Terminata la parte di registrazione, pas¬ 
siamo alla parte di caricamento; se è 
stato rispettato scrupolosamente il for¬ 
mato dei dati, il computer sarà servizie¬ 
vole e preciso ad ogni nostra richiesta, 
anche se, come già accennato, impie¬ 
gherà un discreto tempo nella ricerca 
dei dati. 

Poniamoci quindi nella modalità “cari¬ 
camento dei dati". 

Il computer comincerà a porci una serie 
di domande. La prima riguarderà l’aiuto 
(Help), che per il momento tralasceremo 
rispondendo con un secco “No". La 
seconda riguarda l’emissione dei dati 
su video o, se vogliamo e ne siamo prov¬ 
visti, sulla sua stampante. 

Esplicate queste formalità, ci vengono 
richiesti i dati. 

Prima ci viene chiesto di specificare il 
cognome dell’interessato. Anche per 
questa operazione bisognerà rispettare 
un formato, non superando gli 11 carat¬ 
teri. 

Passeremo poi a specificare il nome, 
senza superare gli 8 caratteri. Infine re¬ 
gistreremo la città con la sigla precedu¬ 
ta da uno spazio, se l’interessato abita 
in quella città, o da un ★ se occorre 
ricercare un prefisso per una determi¬ 
nata provincia. Per esempio, se l’interes¬ 
sato abitasse a Saranno, occorrerà di¬ 
gitare ★ VA, poiché, Saranno è in pro¬ 
vincia di Varese, e ricercare il relativo 
prefisso. 

Posizionato il nastro e digitate le infor¬ 
mazioni dovute, il computer si metterà 
all’opera cercando le informazioni ri¬ 
chieste; i nominativi così trovati ci ver¬ 
ranno mostrati sull'unità prescelta (vi¬ 
sore o stampante). 

Può darsi che nel fornire i dati per la 
ricerca, si sia incerti sulla città, sul nome, 
^ul^ogooroeroohe^i-vogltaoo-più-infor— 
mazioni. 

E a questo punto che interviene il pro¬ 
gramma di aiuto. Accettando l'aiuto, il 
computer ci mostrerà sul visore tutti i tipi 
di aiuto che può fornirci e i relativi codici 
di richiesta. 


Il codice 1 è chiamato List All. Ciò ci 
consentirà di avere un aggiornamento 
di tutti i dati immagazzinati nella memo¬ 
ria, all’inizio della cassetta o a partire da 
un suo qualsiasi punto; 

Il codice 2 Help: Cognome, fornisce 
all'utente il listato con le informazioni di 
tutti coloro che posseggono lo stesso 
cognome. 

Se invece ricordiamo o conosciamo so¬ 
lo il nome, usufruiremo del codice 3 
Help: Nome. 

Il codice 4 Help: città, agglomera tutti 
coloro che abitano nella stessa città. 
Per casi disperati infine si può ricorrere 
al codice 5, che identifica tutti coloro 
che posseggono la medesima lettera 
iniziale del cognome. Nulla quindi è mai 
perso!!! 

Passando all’esame del listato si noterà 
che la sua struttura è assai versatile, 
prestandosi ad essere utilizzato per altri 
usi: catalogazione, gestione piccoli ma¬ 
gazzini, prezzi, articoli di vendita ecc. 

REMarks 

La semplicità del programma è estre¬ 
ma. 

Il programma PO prevede lo smistamen¬ 
to ai vari sottoprogrammi a seconda del 
tipo di operazione che si voglia svolgere. 
L'input effettuato al passo 5 prevede un 
preciso valore alla variabile A$, che vie¬ 
ne esaminato al passo successivo. 
Infatti al passo 10 abbiamo la scelta If- 
Then che prevede o un passaggio al 
sottoprogramma 2 (caricamento dati), 
o al sottoprogramma 1 (registrazione 
dati). 

Il programma PI ha inizio con la regi¬ 
strazione al passo 1 del numero degli 
input che forniamo nel corso del pro¬ 
gramma che comanda al passo 10 un 
ciclo For-Next. 

Ad ogni passo del ciclo la variabile 
esclusiva $, su cui vengono registrati i 
dati Nome, Cognome Tel. Città, viene 
registrata sul nastro tramite l’istruzione 
Put $ posizionata all'interno del ciclo 
stesso, al passo 20. Se vogliamo ricerca¬ 
re il dato, passiamo al programma P2. 

- Dal-passo 15 al -passo- 20-ha-inizio-la 
specifica dei dati richiesti: Cognome, 
Nome e Città. 

Questi vengono rispettivamente im¬ 
messi in 3 variabili di carattere: 
A$,B$,C$. 

Al passo 55 si procede ad estrarre una 
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qualsiasi variabile di carattere esclusiva 
$, dalla quale al passo successivo ver¬ 
ranno estratte con le stesse dimensioni 
fatte nell’operazione di input, 3 variabili: 
D$,E$,J$. 

Queste 3 variabili hanno gli stesssi for¬ 
mati e hanno subito le stesse corrispon¬ 
denze delle gemelle A$,B$,C$. 

Per sapere se la variabile $ estratta con¬ 
tiene le informazioni ricercate, le sue 
sottostringhe DS,ES,JS, sono confron¬ 
tate dal passo 65 al passo 75 con le 
corrispondenti A$,B$,C$. Se i Nomi, Co¬ 
gnomi e le Città in esse contenute sono 
identiche, la variabile $ viene ritenuta 
buona, e quindi accettata perché conte¬ 
nente ciò che a noi interessa. Al passo 
80 l’istruzione Print $ ce la mostrerà. In 
caso la variabile $ non fosse quella, 
giusta, si ritorna al passo 55, in cui l'istru¬ 
zione Get $ preleva dal nastro un’altra 
variabile $. 


Il programma 4 è il programma di aiuto. 
Strutturalmente non differisce dal pro¬ 
gramma P2 per quanto riguarda la ri¬ 
cerca dei dati; la differenza sta nelle 
istruzioni di controllo. Al passo 10 infatti 
l’input del codice Help, di cui si è parlato 
precedentemente, definisce il tipo di e- 
strazione di variabile. 

Se S è uguale a 1 l’istruzione If-Then 
posta al passo 15 ci manda all’istruzio¬ 
ne 43 che preleva incondizionatamente 
variabili $ dal nastro, mostrandole tra¬ 
mite l’istruzione 50. 

I successivi codici spostano l’esecuzio¬ 
ne del programma in aree in cui i con¬ 
trolli delle variabili S sono effettuati in 
base al tipo di aiuto scelto. 

In ogni caso vengono estratte delle sot¬ 
tostringhe dalla variabile esclusiva e 
confrontate con il dato originale. 

Ad esempio l'istruzione 310 preleva dal 
Cognome scelto una stringa lunga 7 


caratteri e posta nella variabile A$. 

Con l’istruzione Get $ caricheremo dal 
nastro la variabile $ letta e da questa 
estrarremo una stringa con lo stesso 
formato di quella A$ che verrà usata per 
confronto, come si può notare dal pas¬ 
so 360. 

Se il confronto risulta positivo, si dà via 
libera alla variabile S stampandone il 
contenuto e passando successivamen¬ 
te a caricarne un’altra con l’istruzione 
Goto 320 che il passo 350 impone. 

Per concludere: i caratteri grafici, così 
come la scritta “List", sono inclusi in 2 
sottoprogrammi ai passi 900 e 910 ri¬ 
chiamabili all’occorrenza. ■ 


Listato 1 - Il programma Agenda telefonica. 


P0 

1 PRINT “A6ETEL’ 

2 VftC 

5 INPUT “ REG.-Cfi 
R.<R/C)",A$ 

1U IF «$=‘0* THEN 

«2 

15 SOSUB #1 

16 END 

PI 

ì INPUT " N°INPUT 
=\P 

5 PRINT "Cosnoie, 
NoieJel. VCi 
tta ! (SIGLA) "5 
18 FOR 1=1 TO P 
15 PRINT I;“°’!:IN 
PUT * DATI M 
29 PUT I 

25 NEXT i:RETURN 
P2 

1 INPUT “ HELP (S 

5 - lF-Y^S 1 T H E N 

14 

10 INPUT "VIDEO 0. 
STAMPA (Y/$)",H 

$ 


15 PRINT * FORNIRE 
I DATI: ■; 

20 INPUT * Cosnoie 
* »i:F=LEN($)! 0 
-li IF F<7?Q=F 
25 fl»=HID(l,8) 

38 INPUT 1 None *, 
$'.Z=7:F=LEN<$): 
IF F<7!Z=F 
35 8$=HID<1,2) 

40 INPUT “ Citta’ 

" ,r$ 

45 Tnr= 6 S'lTO0E 

7 

50 PRINT " ***♦ AT 
TENDERE *♦** 

55 GET $ 

60 D$=HID(1,Q):E$= 
M!D<12,Z):J$=MI 
D(28,3) 

65 IF fi$*D$ THEN 5 

5 

70 IF B$*E$ THEN 5 

75 IF C$*J* THEN 5 
- § - 

88 PRINT MODE 8 
90 END 

P4 


1 INPUT ’ VIDEO 0 
STAMPA (V/S)*, 
Y$ 

5 PRINT * 1 LIST 
ALL-2 HELP COGN 
ONEV-3 HELP N 
OHE *! 

6 PRINT "-4 HELP 
CITTA’*!"-5 SUP 
ER HELP 

10 INPUT * CODICE 
HELP:*.S 

15 IF S=1 THEN 43 

20 IF S=2 THEN 390 

38 IF 8=3 THEN 400 

40 IF S=4 THEN 560 

41 IF 3=5 THEN 600 

43 60SUB 980 

45 GET $ 

50 PRINT $s60SUB 9 
18 

55 GOTO 45 
308 INPUT * COGNOME 
”,$:F=LEN($):Q 
=?:IF "<7;a=F 
395 30SU& 000 

310 ft$=HID< 1 » Q) 

320 GET $ 

338 B$=ì1ID< 1,0) 

34B IF A$=8$ THEN 3 


68 

350 GOTO 320 
360 PRINT $;GOSUB 9 
18 

365 GOTO 320 
480 INPUT * NONE 
J:F=LEN($):Q=7: 
IF F<7;Q=F 
405 GOSUB 900 
418 A$=HID(1,Q) 

420 GET $ 

430 B$=MID<12,Q) 

440 ÌF AS=B$ THEN 4 
60 

450 GOTO 428 
460 PRINT l:GOSUB 9 
10 

470 GOTO 420 
580 INPUT • CITTA’" 
,H«:GOSUB 900 
510 GET $ 

520 B$=H!D(23,3) 

538 IF A$=B$ THEN 5 
50 

540 GOTO 518 
550- PRINT ^GOSUB 9 

10 

560 GOTO 518 
608 INPUT “ LETTERA 
iNIZ.",B$ 


685 GOSUB 908 
610 GET $ 

628 A$=HID(1,1) 

630 IF A$=B$ THEN 6 
50 

640 GOTO 618 
650 PRINT $:GOSUB 9 
18 

670 GOTO 618 
980 IF Y$=*S , ;M0DE 
7:PRINT “ 

_*_LIST *****_ 

*:RETURN 

918 PRINT “_ 

Èfir— ' lR 
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I mmagazzinare dati per poi opera¬ 
re sugli stessi nei più svariati modi 
è sempre stata l'applicazione regi¬ 
na nel settore informatico e anche 
lo sviluppo degli attuali persoqal e home 
computer non ha scalfito questa predi¬ 
sposizione degli elaboratori elettronici, 
non solo negli uffici, ma anche nell'am¬ 
biente “casalingo”: chi non ha mai ac¬ 
quistato o si è copiato da una rivista o 
ha tentato di autocostruirsi un program¬ 
ma per la gestione di un certo quantitati¬ 
vo di dati? 

Dopo questa premessa può sorgere 
spontanea la domanda del perché pro¬ 
porre qualcosa che tutti in qualche mo¬ 
do già possiedono. Il dubbio è più che 
plausibile, ma trova una risposta, spero 
valida, a due livelli: il computer sul quale 
è stato implementato il programma e lo 
scopo dello stesso. Il C 16, sia sul piano 
tecnico che economico, è indirizzato a 
un particolare settore di utenza, la cui 
principale caratteristica è di essere al 
primo approccio col mondo informatico 
e il cui primario interesse è di incomin¬ 
ciare a muovere i primi passi, è in questo 
senso che si propone il presente pro¬ 
gramma: niente di impossibile o “pro¬ 
fessionale", ma un lavoro in grado di 
risolvere i dubbi e di presentare delle 
valide proposte didattiche a chi sta ini¬ 
ziando a percorrere la strada di una 
ricerca personale nell'ambito della pro¬ 
grammazione di un home computer 

Che cos’è un data base 

Il primo dovere di un programmatore, 
anche se alle prime armi, è di aver ben 
chiaro il problema che vuole risolvere 
con la propria macchina, il che significa 
identificare le varie operazioni che do¬ 
vranno essere eseguite e le connessioni 
logiche esistenti fra le stesse. 

Lo sviluppo di un programma per la 
memorizzazione di dati può sembrare, a 
prima vista, una operazione abbastan¬ 
za semplice in quanto richiede il ricorso 
ad un blocco di istruzioni quantitativa¬ 
mente minore rispetto, per esempio, an 
che ad un videogioco elementare. In 

mente, le istruzioni di assegnazione e di 
stampa, mentre non è in genere neces¬ 
sario ricorrere a routine grafiche, sono¬ 
re o di movimento. 

Ogni neoprogrammatore, superata 
l'impasse iniziale, è in grado, con poche 


Data base 

Come archiviare ogni genere di dati 

in schedari su misura 


di Claudio Poma 
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Input e Print e una variabile stringa con 
indice, di costruirsi un piccolo data ba¬ 
se, ma è proprio a questo punto che 
dall'euforia si passa alla sconsolante 
presa di coscienza della stupidità della 
propria macchina e della difficoltà di 
metterla in grado di superare questo 
suo stato. L'esempio più lampante in 
questo senso è connesso all'incapacità 
del computer di operare per similitudini 
oltre che per identità. Nella pratica, si 
concretizza nel mancato ritrovamento 
dell'indirizzo di BIANCHI LUIGI perché i 


• cambiare dei dati; j 

• cancellare dei dati; 

• registrare i nuovi dati su un supporto 
esterno di memoria. 

Oltre a questa suddivisione si pone ora il 
problema del contenuto dei dati che 
dovranno essere gestiti dal programma 
(indirizzi, libri, dischi, articoli di riviste, 
ricette, vini, collezioni di ogni tipo) in 
quanto ognuno di questi settori richie¬ 
derà una diversa suddivisione dei campi 
del file. 

Esistono due soluzioni al problema: 



Campo n.1 
NOME 

Campo n.2 

VIA 

Campo n.3 
CITTÀ 

Campo n.4 
TELEFONO 

Record 1 

Luigi 

Via Verdi 4 

Milano 

67564534 

Record 2 

Sandro 

Via Rossi 7 

Milano 

23435456 

Record 3 

Mario 

Via Bianchi 3 

Bergamo 

5434234 ■ 

Record 4 

Paolo 

Via Neri 45 

Milano 

88765601 

Record 5 

Marco 

Via Gialli 9 

Brescia 

6473828 


Figura 1 - Esempio dell'organizzazione di un lile denominalo Indirizzi organizzalo In 4 campi e 
composto da S record. 


dati del nostro, sono stati memorizzati 
con il nome a precedere il cognome 
(Luigi Bianchi), oppure in caratteri mi¬ 
nuscoli (bianchi luigi o luigi bianchi) o, 
ancora, con le sole iniziali maiuscole 
(Bianchi Luigi o Luigi Bianchi), per non 
parlare di altre difficoltà (più di uno spa¬ 
zio tra i dati, errori di ortografia) che, 
seppur meno riscontrabili, possono 
sempre, comunque, contribuire ad un 
funzionamento non corretto del pro¬ 
gramma. 

Vediamo quindi come si deve operare 
per fornire un programma di una strut¬ 
tura funzionale e funzionante. 

Costruiamo un data base 

La prima cosa da fare è la definizione 
delle operazioni che il nostro program¬ 
ma deve essere in grado di compiere, 
per poi decidere il modo ln“cor'ognl 
operazione deve svolgersi. 

Dato l’argomento che stiamo trattando 
avremo bisogno di: 

• introdurre nuovi dati; 

• visualizzare i dati memorizzati; 

• ricercare un particolare blocco di dati; 
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predisporre un programma specializza¬ 
to su un particolare contenuto, o orga¬ 
nizzare le cose in modo da poter aprire 
con lo stesso programma più schedari 
per gli usi più disparati. La soluzione 
scelta in questo lavoro è la seconda, 
senz'altro più valida per le maggiori 
possibiltà offerte, anche se presenta il 
non trascurabile inconveniente di occu¬ 
pare molto più spazio nei chip silicei 
rispetto al primo caso; problema non da 
poco per una macchina come il C 16 
dalle possibilità non certo illimitate in 
fatto di memoria. 

Prima di passare alla definizione parti¬ 
colareggiata dei problemi connessi alle 
diverse operazioni necessarie a un data 
base che si rispetti, una breve digres¬ 
sione per i neofiti sul significato di tre 
vocaboli essenziali ad una corretta 
comprensione di quanto stiamo dicen¬ 
do: file, record e campo. 

Per file si intende l'insieme di tutti i dati 
riguardanti un particolare argomento 
(indirizzi, ricette, ecc.), è in pratica lo 
schedario che tanto si usa ancora negli 
uffici; il record, per rimanere nella sim¬ 
bologia utilizzata, corrisponde alla 


scheda, è cioè l'insieme di dati propri di 
un particolare soggetto o oggetto; men¬ 
tre i campi sono i diversi argomenti trat¬ 
tati in ogni singola scheda. La figura 1, 
oltre ad esemplificare questa descrizio¬ 
ne, permette di osservare la predisposi¬ 
zione del file a una gestione per matrice 
che il BASIC ci permette di organizzare 
con il semplice ricorso ad una variabile 
con indice. 

In teoria 

Introduzione di nuovi dati 

L'operazione non presenta particolari 
problemi, ma alcune accortezze posso¬ 
no permettere un miglior sviluppo del 
listato e un risparmio pratico in memo¬ 
ria. Questo è ottenibile utilizzando una 
variabile con indice per i vari campi im¬ 
piegati, il che permette di sintetizzare la 
routine di immissione con un'unico In¬ 
put posto in un ciclo For-Next al posto di 
una lista di Input lunga quanti sono i 
campi trattati. Un tale procedimento po¬ 
trà essere utilizzato vantaggiosamente 
anche nelle fasi di stampa dei dati dove 
un Print e un ciclo iterativo sostituisco¬ 
no una lunga serie di Print. 

Anche un controllo finale dei dati im¬ 
messi, prima di una loro accettazione 
definitiva è importante, in quanto con 
tale opzione è possibile porre riparo im¬ 
mediatamente ad eventuali errori di di¬ 
strazione commessi nella battitura dei 
testi. Non guasta anche un controllo 
della lunghezza dei dati dei diversi cam¬ 
pi, soprattutto per problemi inerenti ad 
una successiva visualizzazione. Questa 
operazione sarà obbligatoria nel caso si 
sia deciso di impostare un programma 
che, per motivi di memoria RAM o me¬ 
morizzazione su dischetti in file ad ac¬ 
cesso casuale, richieda una limitazione 
particolare e predefinita. 

Un altro problema che può insorgere in 
questa fase è il ricorso all'istruzione In¬ 
put, molto sbrigativa, ma dagli effetti 
collaterali che a volte possono creare 
una situazione d'impasse: questo può 
succedere, per esempio, con la pressio- 
neraccrdentate-crmencrdttasttnonrt-— 

chiesti (Run/Stop, freccine, ecc.). Per 
ovviare a questo inconveniente è sen¬ 
z'altro preferibile la simulazione di tale 
istruzione con il ricorso a Get, più mac¬ 
chinosa, ma dai risultati apprezzabili. 
Una tale impostazione risulterebbe ol- 
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tremotìo vantaggiosa nella fase di cor¬ 
rezione degli errori, come vedremo du¬ 
rante la descrizione di tale opzione. 

L'unico punto che non può essere in¬ 
vece omesso durante la fase di introdu¬ 
zione dei nuovi dati è il controllo della 
memoria rimasta disponibile, al fine di 
non bloccare il programma per il supe¬ 
ramento del dimensionamento scelto i- 
nizialmente o per l'occupazione di un 
numero di byte superiore a quelli dispo¬ 
nibili. 

Visualizzazione 

è utilizzata soprattutto come subroutine 
dalle altre operazioni. Una particolare 
autonomia di questa funzione può ave¬ 
re dei vantaggi in due occasioni: la pri¬ 
ma si ha nel caso che il numero di dati 
gestito non sia molto elevato, in quanto, 
in tale situazione è possibile avere un 
certo controllo sul blocco dei dati nella 
sua globalità senza dover ricorrere alle 
altre operazioni. La seconda è data dal¬ 
l'eventuale bisogno di avere stampati su 
carta tutti i dati a disposizione. 

Le modalità di intervento, sulla struttu¬ 
razione del listato, varieranno nei due 
casi in relazione alle diverse istruzioni 
da utilizzare per il ricorso a video o a 
stampante, ma in generale l’espleta¬ 
mento di tale routine non presenta pro¬ 
blemi di programmazione: un ciclo con 
contatore (due nel caso di una variabile 
con indice a due dimensioni) e l'impiego 
di un semplice Print. 

Ricerca 

Stiamo per entrare nel cuore del pro¬ 
gramma, nella fase che più di ogni altra 
permette la qualificazione del prodotto 
finale. 

In un programma di gestione dati infatti, 
il mocfo in cui è organizzata la ricerca 
assume una importanza fondamentale 
ai fini del lavoro svolto e dei risultati 
conseguibilli durante l'utilizzo del pro¬ 
gramma stesso. Si è già detto delle diffi¬ 
coltà che possono sorgere nella ricerca 
di una scheda partendo da un nome: 
tale situazione è generata da una impo¬ 
stazione che basa la ricerca su una 

fronta con tutti i dati di un campo: Se il 
mio dato è = a un dato del campo 
Allora Stampa il record corrispondente. 
In un programma esemplificativo per 5 
indirizzi, quanto fin qui detto, divente¬ 
rebbe: 


10 FORK = 1T05 
20 INPUT"NOME ”;A$(K) 

30 INPUT“VIA ";B$(K) 

40 INPUT-CITTA B ;C$(K) 

50 NEXT 

60 INPUT''NOME DA CERCARE ";A$ 

70 FORK = 1T05 

90 IFA$ = A$(K)THEN130 

110NEXTK 

130 ?"NON HO TROVATO”: 
A$:GOTO60 

140 ?A$(K):?B$(K):?C$(K) 

150 GOTO60 

Per superare l'inconveniente di tale so¬ 
luzione, cioè per poter effettuare la ricer¬ 
ca con una minima parte del dato pos¬ 
seduto, ad esempio solo il cognome o il 
nome, si dovrà sviluppare il precedente 
programma in modo da permettere al 
computer di effettuare la ricerca non per 
identità globali (dato = dato), ma per i- 
dentità parziali dove la presenza del da¬ 
to da ricercare non è ammessa da un 
unico confronto, ma da una serie di 
confronti che permettono di controllare 
la presenza o meno del nostro dato 
all 'interno del dato posseduto dal com¬ 
puter. 

Se chiediamo al programma preceden¬ 
te di cercarci il dato Luigi mentre lui 
possiede Rossi Luigi, avremo un laconi¬ 
co messaggio “Non ho trovato Luigi”. 
Per avere una risposta positiva si deve 
mettere in grado il computer di eseguire 
una carrellata all'interno del dato da lui 
posseduto confrontando Luigi con un 



numero di caratteri di Rossi Luigi corri¬ 
spondente alla lunghezza del nostro 
nome. In pratica il programma dovrebbe 
compiere questa operazione: 

(ROSSI) LUIGI No 
R(OSSI )LUIGI No 
RO(SSI LJUIGI No 
ROS(SI LU)IGI No 
ROSS(l LUI)GI No 
ROSSI( LUIG)I No 
ROSSI (LUIGI) Si 

Cosi presentata può sembrare una co¬ 
sa lunga, ma per fortuna il BASIC ci 
permette di ottenere questo risultato 
con il ricorso ad un solo ciclo For-Next 
con l'ausilio dell'istruzione Mid$ per lo 
spostamento all’interno dei dati posse¬ 
duti dal computer. 

Al listato precedente si dovranno ag¬ 
giungere o modificare le seguenti linee: 

80 FORQ = 1TOLEN(A$(K))-LEN(A$) 

+1 

90 IFA$= MID$(A$(K),Q,LEN(A$)) 
THENN= 1.GOTO130 
100 NEXTQ 
120 IFN = 1THEN60 
150 GOTOIOO 

La complessità del limite massimo del 
ciclo di linea 80 serve per non effettuare 
dei controlli inutili (rimanendo all'esem¬ 
pio: Uigi, Igi, Gi, I). La linea 90 realizza lo 
spostamento all'interno del dato posse¬ 
duto dal computer ed esemplificato dal¬ 
le parentesi, mentre la variabile N serve 
a controllare il ritrovamento di almeno 
un blocco dati, nel qual caso la linea 120 
impedirà successivamente la stampa 
del messaggio di mancato ritrovamento 
della linea 130. Il cambiamento alla linea 
150 permette di trovare tutti i dati posse¬ 
duti dal computer e rispondenti alle ca¬ 
ratteristiche da noi richieste: un manca¬ 
to aggiornamento avrebbe, come effet¬ 
to, la stampa solo del primo record vali¬ 
do. 

Una conseguenza di questa soluzione 
è che operando secondo tali modalità il 
computer non troverà solo il record da 
noi desiderato, ma anche tutti gli altri da 
TOTposseduti e che corrispondono, alle 

specifiche da noi richieste, per cui, ri- 
mandendo all'esempio già utilizzato, 
verranno visualizzati tutti gli indirizzi 
contenenti nel campo Nome la parola 
Luigi (quindi anche Pierluigi avrà un 
riscontro positivo). Se l'elenco di tutti i 
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Luigi e affini è il nostro scopo nessun 
problema, mentre nel caso si vogliano 
visualizzare solo i dati desiderati si do¬ 
vrà aggiungere una istruzione che per¬ 
metta di bloccare la ricerca al ritrova¬ 
mento di quanto voluto. 

Un'ultima considerazione sull’organiz¬ 
zazione di questa routine tanto impor¬ 
tante nell'economia di un programma di 
memorizzazione dati, riguarda la possi¬ 
bilità di scegliere il campo sul quale ef¬ 
fettuare la ricerca. Finora questa opera¬ 
zione è stata svolta operando sul cam¬ 
po Nome, ma, anche considerando 
quanto appena detto sulla possibilità di 
ricercare interi blocchi di dati con una 
caratteristica in comune, è comprensi¬ 
bile l'importanza di una opzione, per 
mezzo della quale poter avere in poco 
tempo tutti gli indirizzi dei clienti di una 
data provincia odi quelli che non hanno 
pagato regolarmente le rate, o tutti i titoli 
dei libri posseduti suddivisi per argo¬ 
menti ecc. 

Tutto questo comporta naturalmente 
una serie di operazioni per le quali, dato 
il loro sviluppo, si rimanda alla parte 
pratica. 

Cambiamento 

La gestione di questa routine richiede, 
innanzi tutto, il ricorso alla precedente 
fase di ricerca e, data l'impostazione 
appena descritta, si dovrà predisporre 
una istruzione che permetta di decidere 
se i dati trovati sono o meno quelli che si 
desidera cambiare. In caso affermativo 
si dovranno passare in rassegna tutti i 
dati per decidere quali devono essere 
cambiati e quindi apportare le dovute 
correzioni. 

La soluzione più semplice in tal senso è 
la presentazione di un singolo dato alla 


volta con la richiesta di eventuali cam¬ 
biamenti e, in caso di risposta afferma¬ 
tiva, il ricorso a un Input per l'asse¬ 
gnazione del nuovo dato. Lo sviluppo di 
soluzioni più eleganti è lasciato alla fan¬ 
tasia di ogni programmatore; nel listato 
presentato in queste pagine verrà pro¬ 
posto il ricorso all'istruzione Get che, 
con opportuni controlli, permette una 
gestione più semplice e ordinata dell’o¬ 
perazione descritta. 

Cancellazione 

La prima parte di questa sezione del 
programma segue fedelmente l’impo¬ 
stazione della precedente con il ricorso 
alla routine di ricerca dei dati da cancel¬ 
lare. Trovato quanto desiderato si do¬ 
vranno annullare le variabili in gioco: 
operazione più semplice rispetto alla fa¬ 
se di cambiamento, ma per ottenere un 
risultato altrettanto valido si dovrà strut¬ 
turare il programma in modo che non 
solo cancelli i dati non necessari, ma 
recuperi lo spazio lasciato vuoto dagli 
stessi. Questo permette di non occupare 
inutilmente dei byte, cosa importante 
soprattutto quando la memoria a dispo¬ 
sizione non è molta, ma per raggiungere 
questo risultato si dovrà, all'atto della 
cancellazione, spostare nello spazio del 
record cancellato i dati dell’ultimo re¬ 
cord del file e, a cose fatte, diminuire di 1 
la variabile contenente il numero di re¬ 
cord utilizzati (figura 2). 

È opportuno che, dopo ogni ricorso 
alle routine di cambiamento o cancella¬ 
zione, si salvino i dati sulla memoria di 
massa esterna (cassetta o dischetto) 
quale salvaguardia dell'efficacia di una 
operazione che altrimenti perderebbe i 
suoi effetti allo spegnimento del compu¬ 
ter. 


Figura 2 - Esempio di riorganizzazione del file di figura 1 dopo l’avvenuta cancellazione del 
precedente record 3. Si può notare il modo di operare del programma durante tale operazione, che 
consiste nello spostare l'ultimo record al posto di quello cancellato. 



Campo n.1 
NOME 

Campo n.2 

VIA 

Campo n.3 
CITTÀ 

Campo n.4 
TELEFONO 






— Recensì — 

tntgi 

via verdi 4 

Milano 

67564534 

Record 2 

Sandro 

Via Rossi 7 

Milano 

23435456 

Record 3 

Marco 

Via Gialli 9 

Brescia 

6473828 

Record 4 

Paolo 

Via Neri 45 

Milano 

88765601 


Registrazione 

Indispensabile per il mantenimento dei 
dati allo spegnimento del computer. 
Non richiede particolari accorgimenti, a 
parte l'attenzione che lo sviluppo delle 
due distinte fasi, di registrazione dei 
nuovi dati sul supporto magnetico e ri¬ 
chiamo dei dati memorizzati ad un suc¬ 
cessivo utilizzo del programma, sia 
identico nella concatenazione delle va¬ 
riabili in gioco. Se, per esempio, la prima 
operazione effettuata nella fase di sal¬ 
vataggio dei dati è la memorizzazione 
del numero di record utilizzati; ricor¬ 
rendo alla variabile N, la prima opera¬ 
zione da effettuarsi nella fase di ri¬ 
chiamo dei dati memorizzati la volta pre¬ 
cedente, sarà il recupero del numero dei 
record utilizzati ricorrendo, per questo, 
sempre alla variabile N. 

La generalizzazione 

Un programma per la memorizzazione 
di dati, sviluppa dei file organizzati in 
campi e record, ma, mentre la gestione 
del nome del file e del numero dei record 
non presenta particolari problemi ed è 
legato essenzialmente all’aspetto prati¬ 
co di ogni singola applicazione (il più 
semplice programma strutturato secon¬ 
do le direttive sopra discusse è in grado 
di aprire più file contenenti un numero 
diverso di record), l’aspetto campi si ma¬ 
nifesta più complesso sia in merito al 
numero degli stessi che all'argomento 
da essi trattato. 

Un programma organizzato per la ge¬ 
stione di indirizzi richiederà un numero e 
degli argomenti diversi per i suoi campi, 
rispetto a un programma per la memo¬ 
rizzazione dei dati riguardanti una bi¬ 
blioteca, pur mantenendo una identica 
strutturazione per quanto riguarda il 
trattamento dei dati. 

Le vie a questo punto sono due: lo svi¬ 
luppo di più programmi diversi solo nel¬ 
l’organizzazione dell’aspetto campi o lo 
sviluppo di un solo programma capace 
di gestire situazioni diverse in merito alla 
definizione dei campi. 

Nel primo caso ogni singolo program¬ 

ma occuperà meno memoria rispetto 
alla seconda soluzione, ma sì dovranno 
di volta in volta adattare alcune parti del 
listato in relazione ai bisogni del mo¬ 
mento e per passare ad argomenti di¬ 
versi si dovrà caricare un nuovo pro- 
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Per CimiM4«rt H 

Giochi fantastici per il C 64 
Co d. ASOCOOl L. 42.000 
(inclusa cassetta) 


Un libro pensato e 
realizzato per il 
divertimento dell'utente 
del C 64; contiene 19 
giochi di vario genere 
ampiamente commento 
L'attento studio dei 
programmi potrà essere 
vantaggioso per 
l'apprendimento delle 
tecniche di 
programmazione. 

Il libro del C 64 
Volume 1 

Cod. ASOCOIOL. 24.000 
(inclusa cassetta) 

Il libro del C 64 

Volume 2 

Cod. ASOCOÌI L. 24.000 
(inclusa cassetta) 

I due libri illustrano a 
fondo le possibilità del 
Commodore 64. Un 
compendio di utili 
consigli, e quant'altro è 
necessario per conoscere 
meglio il proprio 
calcolatore. Esempi pratici 
completano l’esposizione 
in modo chiaro ed 
esauriente. 


Per ZX Spcctrum 

15 giochi grafici per 
ZX Spectrum 

Cod ASOC002 L. 24.000 
(inclusa cassetta) 

Un fantastico volume con 
15 entusiasmanti giochi 
grafici per il tuo ZX 
Spectrum. Tutti i 
programmi sono "pronti 


C 64: suono » grafica - 

Volume I 

Cod. ASOC 008 L. 24.000 
(inclusa cassetta) 

C 64: suono e grafica - 

Volume 2 

Cod. ASOC009 L. 24.000 
(inclusa cassetta) 

Due volumi che non 
possono mancare nello 
biblioteca dell'utente 
Commodore. Una miniera 
di idee e suggerimenti per 
la programmazione del 
tuo personal computer. 
Una vasta serie di 
programmi esemplificativi 
guidano il lettore al 
miglior sfruttamento del 
Commodore 64. 


impii 
’i. I pi 


commentati. I programmi 
sono scritti sfruttando 
appieno le capacità del 
calcolatore ed il loro 
studio può giovare a 
chiunque intenda affinare 
le proprie tecniche di 
programmazione. 


Inoltre, i Paper Book: la 
raccolta dei programmi 
suddivisi per macchina di 
Paper Soft, il primo 
settimanale di software su 
carta per il tuo computer. 

Paper Book - programmi 
per Apple // - 
Cod. ASOC 005 L. 18.000 
Paper Book - programmi 
per VIC 20- 

Cod. ASOC 003 L. 18.000 

Paper Book - programmi 


per 

Cod. ASOC 007 L. 18.000 
Paper Book - programmi 
per ZX Spectrum - 

Cod. ASOC 006 L. 18.000 


é. 
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Viole Resici!,. 5-20124 Mshno - lei. 02/6880841 6880842-6880843 


In ogni volume, 
corredato di cassetta, 
oltre 40 programmi 
per il tuo computer: 
giochi grafici, 
utility, arcade, 
adventure una miscela 
esplosiva di software 
“pronto all'uso “I 


fili 

ultimi 

saranno 
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primi? 

Giudicalo tu. 

Anche se, in ordine di tempo, 
siamo gli ultimi a uscire con libri 
"dedicati " ai più diffusi home e 
personal computer, siamo convinti 
che il lettore attento ed esigente 
apprezzerà la qualità dei contenuti 
e la loro presentazione. 
Abbiamo selezionato e tradotto i 
best-seller mondiali che accolgono 
quanto di più utile è stato scritto 
per il tuo computer. 

Scegli a colpo sicuro! 


Puoi ordinare direttamente i titoli presentati 
compilando ed inviando il coupon pubblicato 
oppure acquistarli presso i più qualificati 
computer shop e le migliori librerie. 
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gramma in memoria; nel secondo caso, 
invece, l'occupazione di un numero 
maggiore di byte, oltre a permettere l'u¬ 
so dello stesso programma per la ge¬ 
stione di argomenti diversi, favorisce l'u¬ 
tente inesperto al quale non sarà chie¬ 
sto di cambiare alcuna parte del listato 
per formare schedari di differenti argo¬ 
menti, in quanto per questo gli sarà suf¬ 
ficiente utilizzare correttamente il pro¬ 
gramma del quale dispone. 

In pratica 

Ora vedremo come quanto fin qui det¬ 
to sia stato messo in pratica nella realiz¬ 
zazione del programma presentato in 
queste pagine. La costruzione modula¬ 
re, cioè per compartimenti stagni, per¬ 
mette una comprensione pressoché im¬ 
mediata del listato proposto (si utilizzi in 
questa fase anche il diagramma a bloc¬ 


chi relativo alle diverse routine dalla fi¬ 
gura 3) oltre a facilitare la gestione di 
eventuali cambiamenti. Appena dato il 
Run, dopo il dimensionamento e uno 
schermo iniziale, (Chr$(14) fa passare 
dal maiuscolo al minuscolo), viene chie¬ 
sto il nome del File (linea 110) e, dopo un 
controllo dello stesso, abbiamo la prima 
opzione di una certa rilevanza: alle linee 
155-160 si può scegliere se utilizzare le 
cassette o i dischetti come supporti ma¬ 
gnetici. 

Alla linea 170 ci si imbatte in una impor¬ 
tante scelta effettuata nella strutturazio¬ 
ne del programma che è stato organiz¬ 
zato privilegiando la sua generalizza¬ 
zione. Se la risposta alla linea 170 è 
affermativa si entra nella routine che 
permette la definizione del numero e 
dell'intestazione dei campi con relativo 
controllo (linee 200-300) per poi passare 
alla fase di memorizzazione dei dati ap¬ 


J PRELIMINARI J 


/ DEFINIZIONE / 

/ CAMPI / 



PRIMA 

VOLTA 


/memorizzazione / 

/ CAMPI / 


/ RICH 
/ CA 

IAMO / 

MP. 1 



/ RICHIAMO / 

/ RECORD 1 


pena definiti sul supporto di massa pre¬ 
cedentemente scelto (linee 330-380) e 
quindi andare al menu delle operazioni 
offerte dal programma. 

Se la risposta alla domanda di linea 
170 è invece negativa, se cioè sono già 
stati definiti precedentemente i dati rela¬ 
tivi ai campi del file che si intende utiliz¬ 
zare, il programma salta (linea 190) alla 
linea 390 dove per prima cosa vengono 
caricate le informazioni proprie dei 
campi (si noti come le routine 320-370 e 
400-450 differiscano solo per il ricorso a 
Print e Input o allo 0 e 1 utilizzati con 
Open che definiscono la direzione del 
movimento dèi dati, mentre le variabili 
utilizzate e il loro ordine siano identici, 
per quanto detto circa le modalità della 
fase di Registrazione) e quindi i record 
introdotti durante gli usi antecedenti 
(notare le linee 470-480 che permettono 
un corretto uso delle cassette in questa 
operazione) prima di arrivare al menu. 
L'introduzione a questa fase è segnala¬ 
ta da un suono, cosi come il passaggio 
a tutte le fasi principali del programma. 
Degna di nota in tale passaggio è la 
routine 605-620 che, durante l'attesa 
della pressione di un tasto numerico 
corrispondente alle diverse opzioni of¬ 
ferte, movimenta un po' lo schermo fa¬ 
cendo scorrere sullo stesso la scritta 
“Scegli un numero". Per ottenere l'effet¬ 
to promesso si faccia attenzione a posi¬ 
zionare correttamente alla linea 605 i 
due spazi che precedono e seguono la 


Figura 3 - Diagramma di flusso delle principali 
routine del programma Data base per C 16. 
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scritta in questione. Per i neofiti il trucco 
è presto spiegato: si tratta semplice- 
mente di ordinare al computer di spo¬ 
stare il primo carattere della frase in 
fondo alla stessa (per esempio Ciao, 
laoc, Aoci, Ocia, ecc.), azione egregia¬ 
mente svolta dalla sola linea 612, e di 
stampare la nuova stringa partendo 
dalla stessa posizione della precedente 
(linea 610 che sale di una riga, parte 
dalla stessa colonna e scrive in inverso). 

Scelta l’operazione con la quale si in¬ 
tende lavorare, si sente un suono (linea 
625 che annulla anche la scrittura in 
inverso) e si passa all'opportuna routine 
(linea 630). 

Le routine 

Fine 

Le linee da 640 a 690 contengono le 
istruzioni per terminare il programma 


con la possibilità, per chi ne avesse bi¬ 
sogno, di fare una copia dei dati in me¬ 
moria (è sempre meglio insistere fino 
alla fine prima di incorrere in qualche 
dimenticanza fatale). 

Visualizzazione 

Si sviluppa dalla linea 700 fino alla 763 
con il ricorso alla subroutine 765-790 
che permette l'effettiva visualizzazione 
delle singole schede. 

L'utilizzazione offerta è molto semplice 
e consiste nella stampa della scheda il 
cui numero, secondo l'ordine di memo¬ 
rizzazione, è influenzabile con la pres¬ 
sione dei tasti <e> con < che fa stam¬ 
pare la scheda con numero inferiore 
alla precedente e > che permette l'ope¬ 
razione inversa. Si inizia con la prima 
scheda e si termina (linea 760) quando 
si chiede la stampa di una scheda dal 
numero superiore alla quantità di sche¬ 


de memorizzate. 

La visualizzazione dei dati è permessa 
da un semplice ciclo For-Next corredato 
da alcuni segni semigrafici che permet¬ 
tono una miglior presentazione del tutto 
(linee 765-785). 

Introduzione 

Dopo un iniziale, quanto opportuno, 
controllo della presenza di uno spazio 
sufficiente alla memorizzazione di nuovi 
dati (linee 800-807), vengono stampati 
gli argomenti dei diversi campi con rela¬ 
tiva richiesta dei nuovi dati corrispon¬ 
denti e controllo della loro lunghezza 
che per problemi di schermo non può 
superare dei limiti precisi (linee 820- 
840). 

Al termine della scheda c’è un control¬ 
lo finale della correttezza della stessa 
(linea 870) e, in caso di risposta afferma¬ 
tiva, si deve avvisare il computer sul bi- 


Lislato 1 - Il programma Dala base. 

10 DIMA$(15): VOL8 

20 PRINT"(CLR){ 5 GIU 1 )":PRINTCHRS(14) 

30 PRINTTAB (14)" ( <A> ] { 11 M[<S>]" 

35 PRINTTAB(14)"-{ 11 SPAZI}-" 

40 PRINTTAB(14)(RVS)DATA BASE(OFF} 

45 PRINTTAB(14){ 11 SPAZI}-" 

50 PRINTTAB(14)"T<Z>){ 11 *)T<X>]" 

60 PRINT"(GIU’}"TAB(17)"PER C16" 

70 PRINT"( 5 GIU'}"TAB(14)"DI CLAUDIO POM 
A" 

80 FORT=1T03000:NEXT 
100 PRINT"(CLR)":SOUNDl,911,20 
110 PRINT"COME SI CHIAMA IL FILE COL QUAL 
E VUOI! 3 SPAZIJÒPERARE " 

120 INPUTFIS 

130 PRINT:PRINT"VUOI DAVVERO OPERARE CON 
"FI$" ? ":PRINT"(S/N) 

1 40 GETAS : IFA$0"S"ANDA$0"N"THENl 40 
150 IFA$ 3 "N"THENl00 

155 PRINT:PRINT:PRINT"USI LE CASSETTE O I 
DISCHI ? (C/D) "; 

1 60 GETAS: IFA$0"C"ANDA$0"D"THEN1 60 
163 PRINTAS 

165 ME=1:IFA$“"D"THENME=8 
170 PRINT"{ 2 GIU 1 }E 1 LA PRIMA VOLTA CHE 
OPERI CON":PRINTFI$" (S/N) "; 

180 GETAS:IFA$<>"S"ANDA$<>"N"THENl80 
190 IFA$="N"THEN390 

200 P R - INT'MGLR -)- » --- 

210 PRINT"ALLORA DEVI DEFINIRE I VARI CAM 
PI CHET 3 SPAZIJCOMPONGONO IL FILE "F 
1 $ 

220 PRINT"(GIU*)PUOI USARNE UN MASSIMO DI 
15." 


225 PRINT"SE NON TI SERVONO TUTTI PUOI PR 
EMERE E{ 3 SPAZI)PER FINIRE.{GIU'}" 
230 FORT=1TOl5:PRINT"CAMPO N."T "-> "; 

240 INPUTAS(T):IFA$(T)="E"ORA$(T)="E"THEN 
260 

250 NEXT 

260 PRINT"(CLR)(RVS)QUESTI{SPAZI}SONO 

{SPAZI} USPAZI ) CAMPI {SPAZI JCHETsPAZI} 
HAI{SPAZI) SCELTO (OFF){GIU*}":NC=T-1 
270 FORT=lTONC:PRINTAS(T):NEXT 
280 PRINT"{ 2 GIU'}VA TUTTO BENE ? (S/N) 

Il • 
t 

290 GETAS: IFA$O"N"ANDA$O"S"THEN290 
300 IFA$ 3 "N"THEN100 

310 GOS UB94Q __ 

320 OPENl,ME,1 / "MEM"+FI$ 

330 PRINT#1 ( NC 
340 FORT 3 1TONC 
350 PRINT#1,A$(T) 

360 NEXT 
370 CLOSEl 

380 DIMRES(NC,50):GOTO500 
390 GOSUB940 

400 OPENl,ME,0,"MEM"+FI$ 

410 INPUT#1,NC 
420 FORT 3 1TONC 
430 INPUT#!,A$(T) 

440 NEXT 

450 CLOSEl 

460 IFME=8THEN490 

4-70 PRINT: PRINT" {RVS}E ORA LA CASSETTA CO 
N I DATI{OFF}" 

480 PRINT:PRINT"PREMI RETURN PER CONTINUA 
RE " ; : INPUTA^f 

490 DIMRE$(NC/50) :GOSUB1105 
500 PRINT"{CLR}":PRINTCHRS(142) 
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sogno o meno di inserire altri dati. A 
questo punto premendo S si ripete la 
fase di immissione utilizzando un nume¬ 
ro aggiornato per la nuova scheda, 
mentre alla pressione di N si passa al 
salvataggio dei dati sulla memoria di 
massa esterna prescelta (dischetto o 
cassetta) e quindi si ritorna ai menu 
(linea 930). 

Ricerca 

Questa operazione può essere utilizza¬ 
ta sia da sola per ottenere un dato che ci 
interessa, oppure aH'interno delle fasi 
per il cambiamento o la cancellazione 
dei dati. Per permettere questo uso al¬ 
largato si è dovuto trattare tale fase 
come una subroutine alla quale acce¬ 
dere con il ricorso a Gosub e questo 
spiega la linea 1200 che potrebbe altri¬ 
menti essere ritenuta inutile. Non si trat¬ 
ta naturalmente dell'unica via possibile: 
si può ottenere lo stesso effetto trala¬ 
sciando la linea 1200 e aggiungendo un 
controllo del Return alla linea 1400, ma 
si occuperebbe qualche byte di più. 

Alla linea 1220 vengono stampati, nu¬ 
merati, i titoli dei campi del file col quale 
si sta lavorando e quindi si passa alla 
richiesta del numero del campo col qua¬ 
le si vuole effettuare la ricerca. Control¬ 
lato che il valore scelto ricada nell'inter¬ 
vallo corretto (linea 1250) si deve intro¬ 
durre l’insieme di caratteri che si vuole 
cercare. In relazione alla costruzione del 
programma, le cui modalità sono state 
spiegate precedentemente, non è ne¬ 
cessario dare al computer il dato nel 
modo esatto con cui è memorizzato, ma 
basterà proporne una piccola parte con 
l'ovvio inconveniente che cosi facendo 
la ricerca potrà avere più esiti positivi, 
mentre il vantaggio di tale organizzazio¬ 
ne consiste nella possibilità di poter e- 
strarre dalla massa di dati tutti quelli 
rispondenti al parametro scelto. 

Avendo inizialmente predisposto la 
memorizzazione dei dati in una variabile 
con indice a due dimensioni, è ora pos¬ 
sibile sintetizzare tutta la fase della ricer¬ 
ca in due semplici cicli For-Next (linea 
1280-1320), che al di là del nome delle 

Vai Teil_»ni UUlTCtaTo, ounu uyvJaii a yOUm 

sviluppati per il programmino esemplifi¬ 
cativo durante l'approccio teorico (linee 
70-110). Il ricorso a una matrice permet¬ 
te in più, rispetto all’esempio, di effettua¬ 
re, con le stesse istruzioni, la ricerca su 
parametri diversi e semplifica la succes¬ 


siva fase di stampa della scheda per la 
quale, onde risparmiare in memoria, si 
ricorre (linea 1350) alla routine già ana¬ 
lizzata durante la descrizione della Vi¬ 
sualizzazione. 

Quando la ricerca ha esito positivo, 
dopo la stampa della relativa scheda 
viene chiesto se si tratta dei dati deside¬ 
rati, per ovviare a quanto detto sulla 
possibilità di avere più di un ritrovamen¬ 
to per la particolare procedura adottata 
per la ricerca. Una risposta negativa fa 
continuare l'operazione sui dati della 
scheda seguente (linea 1320), mentre 
un sì rimanda alla routine di partenza 
(linea 1400) che può essere quella di 
Cambiamento, di Cancellazione oppure 
una Ricerca fine a sé stessa, nel qual 
caso (linea 1200) si torna direttamente 
al menu. 

Lo stesso avviene quando il programma 
ha controllato anche l'ultima scheda, 
con l'aggiunta che, in tale situazione, 
viene stampato un messaggio che infor¬ 
ma circa il termine della ricerca per 
mancanza di ulteriori dati (linea 1330). 

Cambiamento 

La prima operazione eseguita è la ricer¬ 
ca della scheda nella quale si vogliono 
apportare dei cambiamenti. Se la ricer¬ 
ca ha esito negativo, la variabile H (linea 
1340 e linea 1410) rimanda immediata¬ 
mente al menu, mentre in caso afferma¬ 
tivo viene eseguito il ciclo compreso tra 
le linee 1430 e 1520 la cui caratteristica è 
il ricorso all'istruzione Get. 



Questa soluzione presenta il vantaggio 
di non richiedere l'uso per ogni singolo 
dato di più Input per la richiesta dell’op¬ 
portunità di cambiare il dato stesso e 
per l’eventuale sostituzione. Infatti la li¬ 
nea 1450 scrive il dato in questione, non 
ci si dimentichi il punto e virgola (;) sen¬ 
za il quale il risultato sarebbe ben diver¬ 
so, e il Get di linea 1460 ne permette 
l'accettazione o la correzione immedia¬ 
ta e molto pratica grazie ai controlli delle 
linee successive: 

• la linea 1470 (13 in codice ASCII corri¬ 
sponde alla pressione del tasto Return) 
simulando un Input indica l’avvenuto 
controllo, ed eventuale cambiamento 
effettuato, sul dato in questione e ci 
manda al datò seguente; 

• le linee 1480 e 1490 permettono la 
cancellazione di un singolo carattere 
(20 = DEL); 

• la linea 1495 controlla la lunghezza 
del dato e qualora raggiunga il limite 
massimo non permette ulteriori aggiun¬ 
te; 

• la linea 1500 controlla il tasto premuto 
e permette l'inserimento solo di determi¬ 
nati caratteri (lettere dell'alfabeto, nu¬ 
meri, simboli di punteggiatura e mate¬ 
matici) al fine di salvaguardare l'utente 
inesperto dalle pressioni di particolari 
tasti che potrebbero creare degli incon¬ 
venienti al corretto funzionamento del 
programma. 

Terminata la correzione viene stampa¬ 
ta la scheda aggiornata (linea 1530) e, 
dopo l'assenso, i nuovi dati vengono 
salvati sulla memoria di massa (linea 
1580) per poi tornarealmrenu. 

Cancellazione 

L'inizio è identico alla fase di cambia¬ 
mento (si confrontino le linee 1410 e 
1600). All'esito positivo della ricerca vie¬ 
ne offerta un'ultima possibilità di uscire 
dall'operazione e di non cancellare i 
dati che, nel caso non si cambi idea, 
vengono irrimediabilmente persi, in 
quanto al loro posto viene memorizzata 
l'ultima scheda del file (linee 1640-1660) 
mentre il numero dei record viene ridotto 
di un punto e la nuova situazione è 
sancita dal ricorso atta - registrazione” 

magnetica. 

Registrazione 

Le due distinte routine per la scrittura su 
dischetto o cassetta e la lettura dagli 
stessi, non hanno bisogno dì particolari 
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NTCHR$(14) : GOTO810 

805 PRINT"{CLR}{GIU'}NON C'E' PIU' SPAZIO 


505 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

605 

610 
611 
612 
620 
625 
630 

640 

650 

660 

670 

680 

690 

700 

710 

715 

720 

725 

730 

740 

750 

760 

763 

765 

770 


775 

780 


785 

790 


800 


SOUND1,917,20 

PRINTTAB(12)"{ 2 SU}U{ 15 *}l" 
PRINTTAB(12)"-JRVS }MENU' DATA BASE 
{OFF}-" 

PRINTTAB(12)"j{ 1 5 *}K" 

PRINT"{ 3 GIU’}"TAB(7)"1){ 2 SPAZl}VI 
SUALIZZAZIONE DATI" 

PRINT"{GIU'}"TAB(7)"2){ 2 SPAZIJlNTRO 
DUZIONE NUOVI DATI" 

PRINT"{GIU 1 }"TAB(7)”3){ 2 SPAZljRICER 
CA DATI" 

PRINT"{GIU'}"TAB(7)"4){ 2 SPAZI}CAMBI 
AMENTO DATI" 

PRINT"{GIU'}"TAB(7)"5){ 2 SPAZl}CANCE 
LLAZIONE DATI" 

PRINT"{GIU'}"TAB(7)"6){ 2 SPAZI}REGIS 
TRAZIONE DATI" 

PRINT"{GIU'}"TAB(7)"7){ 2 SPAZI}FINE 
{ 4 GIU'}" 

B$="{ 2 SPAZI}SCEGLI UN NUMERO 
{ 2 SPAZI}" 

PRINTTAB(10)"{SU}{RVS}"B$ 

FORF=lTO200:NEXT 

B$=MID$(B$,2,19)+LEFT$(B$,1 ) 

GETA$:N=VAL(A$):IFN<1ORN>7THEN610 
PRINT"{OFF}":SOUNDl,864,15 
ONNGOTO7O0,800,1 200,1 41 0,1 600,1 680,64 


0 

PRINT"{CLR}" 

PRINT"VUOI FARE UNA COPIA DEI NUOVI D 
ATI ?{ 4 SPAZI}(S/N) "; 

GETA$:IFA$="N"THEN690 
IFA$ < >"S"THEN6 6 0 
GOSUBlOffO 

PRINT"{CLR}{ 12 GIU'}"TAB(18)"CIAO.": 
END 

N=0:PRINT"{CLR}":PRINTCHR$(14) 

PRINT"{HOME}{ 18 GIU'}" 

PRINT"[<A>]{ 38*}[<S>]"; 

PRINT"-_ - > -{ 2 SPAZI} AVANTI 
{ 9 SPAZI}- < - INDIETRO 
PRINT" (<Z>) { 38 M [<X>] 

GETA$: IFA$<>"."ANDA$<>","THEN730 

IFA$ = "."ANDN< =NUTHENN=N+1 

IFA$=","ANDN>1THENN=N-1 

IFN>NUTHEN790 

GOSUB765: GOTO710 

PRINT"{CLR}[<A>] { 38 * } [<S>]"; 

PRINT"--";SPC (1 5) " {RVS TSCHEDA N. {OFF} 

"N;:PRINTSPC(11-LEN((STR$(N)+STR$(NU) 

)))NU; 


PRINT"-";:PRINT"(<Q>]{ 38 _^}[<W>}"; 
FORT=lTONC: PRINT"_- {DES}"RE$ (T,N) : PRIN 
T " { SIN }-=/ ♦ "; :NB X T --- 

PRINT"[<Z>]{ 38 *}[<X>}": RETURN 
PRINT"{GIU'}{RVS TRICERCA {SPAZI} TERMI 
NATA{OFF} PREMI <RETURN> ";:INPUTA$:G 
OTO500 

IFNC * 3 0 < FRE(I)ANDNU< 5 0THENNU=NU +1 :PRI 


IN MEMORIA{ 2 GIU'}" 

806 INPUT"PREMI IL TASTO RETURN ";W$:GOTO 
500 

810 PRINT"{CLR}"TAB(16)"{RVS} SCHEDA 
{SPAZI}N.{OFF} "NU:PRINT 
820 FORT=1TONC 

830 PRINTA$(T); : INPUT"-> ";RE$(T,NU) 

835 IFLEN(RE$(T,NU))>36THENPRINT:PRINT"TR 
OPPO LUNGO ! MAX.36 PRINT:GOTO830 

836 IFLEN(RE$(T,NU))=0THENRE$(T,NU)="-" 
840 NEXT 

850 S=N:N=NU:GOSUB765:N=S 

870 PRINT"{ 2 GIU'}VA TUTTO BENE ? (S/N) 

Il • 

880 GETA$: IFA$ = "N"THEN810 
890 IFA$<>"S"THEN880 

900 PRINT:PRINT"{ 2 GIU'}ANCORA ? (S/N) " 

910 GETAS:IFA$="S"THEN800 
920 IFA$<>"N"THEN910 
930 GOSUBl000:GOT0500 
940 PRINTCHR$(14)"{CLR}" 

950 A$="LA CASSETTA":IFME=8THENA$="IL DIS 
CHETTO" 

960 PRINT"{GIU'}HAI PREDISPOSTO "A$" ? ( 
S/N) 

970 GETA$: IFA$ = "S"THENRETURN 
980 IFA$O"N"THEN970 

990 PRINT:PRINT"{GIU'}E COSA ASPETTI A FA 
RLO ?":FORT=1TO 3 0 0 0 :NEXT: GOTO 950 

999 REM *** SCRITTURA SU DISCO O CASSETTA 

*** 

1000 GOSUB940 

1010 IFME = 8THENOPENl,ME,15,"SO:"+FI$:CLOS 
El 

1015 OPENl,ME,1,""+FI$ 

1020 PRINT#!,NU 
1030 FORT=lTONU 
1040 FORTI=1TONC 
1050 PRINT#1,RE$(Ti,T) 

1060 NEXT 
1070 NEXT 
1080 CLOSEl 
1090 RETURN 

1099 REM *** LETTURA DA DISCO *** 

1100 GOSUB940 
1105 REM 

1110 OPENl,ME,0,""+FI$ 

1120 INPUT#1,NU 
1130 FORT=lTONU 
1140 FORTI=1TONC 
1150 INPUT#1,RE$(Tl,T) 

1160 NEXTTl 
1170 NEXTT 

- 1 4-8 0 - eì i O 6fr 1 - 

1190 RETURN 

1200 GOSUBl210:GOTO500 
1210 PRINTCHR$(14)"{CLR}" 

1220 FORT=lTONC:PRINTT") "A$(T):NEXT 
1230 PRINT"{ 2 GIU’}DIMMI IL NUMERO DEL P 
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spiegazioni. Si presti attenzione al pun¬ 
to già accennato e relativo al bisogno 
che le due fasi siano strutturate in modo 
identico, con la stessa successione del¬ 
le stesse variabili. L'unica differenza è la 
presenza della linea 1010 nell'operazio¬ 
ne di scrittura: tale procedura è impor¬ 
tante nel caso si usino i dischetti, in 
quanto salvaguarda da eventuali pro¬ 
blemi che possono sorgere qualora 
venga registrato un file che, per delle 
cancellazioni, fosse più corto del prece¬ 
dente. La linea in questione non fa altro 
che annullare il vecchio file prima della 
memorizzazione del nuovo. 

Se i listati non presentano difficoltà par¬ 
ticolari, sono invece importanti alcuni 
consigli per chi ricorrerà alle cassette 
per il salvataggio dei dati. 

Questo supporto non è controllato da 
un DOS, per cui, nonostante il program¬ 
ma cerchi di dare una mano dove gli è 


possibile, la correttezza dell'esecuzione 
di tutte le operazioni è lasciata alla ca¬ 
pacità del singolo utente. Per riuscire 
nell'intento senza correre il rischio di 
dannarsi, per interi file andati persi, si 
devono osservare queste regole: 

• utilizzare una cassetta per ogni file; 

• di ogni cassetta usare una facciata 
per la memorizzazione dei titoli dei cam¬ 
pi e l’altra per i record; 

• segnare sulla cassetta il nome del file e 
i lati campi e record; 

• alla fine di ogni utilizzo di un file fare 
una copia dello stesso (anche successi¬ 
vamente alla prima registrazione sul la¬ 
to record). 

Considerazioni finali 

Il programma presentato, offre delle 
prestazioni non indifferenti, dato che il 
modello di computer sul quale è imple¬ 


mentato, non è certo esente da critiche. 
Di seguito le motivazioni circa le scelte 
effettuate e le possibili alternative. 

I punti "deboli” sono: il mancato ricorso 
alla stampante, l'impossibilità di effet¬ 
tuare una ricerca su più campi, il ricorso 
alla memorizzazione su cassette e ai file 
sequenziali e non relativi. 

I primi due sono riconducibili allo stes¬ 
so problema: data la limitata quantità di 
memoria disponibile sul C 16 sono state 
necessarie delle scelte a vantaggio di 
certe soluzioni e a danno di altre; in 
quanto svilupparle tutte avrebbe porta¬ 
to ad un perentorio "Out of memory". 
Ricordiamoci che la memoria disponibi¬ 
le per la programmazione in BASIC non 
può essere occupata totalmente dal li¬ 
stato, ma che uno spazio sufficiente de¬ 
ve essere lasciato per le variabili utilizza¬ 
te e, nel caso di variabili con indice, oltre 
ai byte occupati al dimensionamento, si 


Seguito listato Data base. 

ARAMETRO "} 

1240 GETA$:A=VAL(A$) 

1250 IFA<lORA>NCTHENl240 
1255 PRINTA 

1 260 PRINT:PRINT"{GIU 1 }DIMMI COSA DEVO CE 
RCARE E PREMI <RETURN>" 

1270 INPUTB$:B=LEN(B$) 

1280 FORK=1TONU 

1 290 FORR=1TOLEN(RE$(A, K) )+1-B 
1300 IFMID$(RE$(A,K),R,B)=B$THENl350 
1310 NEXTR 
1320 NEXTK 

1330 PRINT:PRINT"{GIU 1 }{RVSjRICERCA 

{SPAZI}TERMINATAToFF} PREMI <RETURN 
> ": SOUND1,810,15 
1 340 INPUTA$:H = 1: RETURN 
1350 S=N:N=K:GOSUB765:N=S 
1370 PRINT"{GIU 1 }E 1 {SPAZI}QUESTA{SPAZI}L 
A{SPAZI}SCHEDA{SPAZI)CHÈISPAZI}VOLE 
VI? (S/N) SOUND 1 ,8TTT, 15 
1380 GETK$:IFK$="N"THENl320 
1390 IFK$<>"S"THENl380 

1400 PRINT:PRINT"{GIU*}PREMI <RETURN> PER 
CONTINUARE "; :INPUTA$: RETURN 
1410 GOSUBl210 :IFH=1THENH = 0: GOTO500 
1420 PRINT"{CLR}" 

1430 FORT=1TONC 

1 440 PRINT"{HOME}": FORTI=1 TOT:PRINT" 

- { - GIU — }" -fr NEXT - Tl ——- 

1450 PRINTRES(T,K)" 

1460 GETB$:IFB$=""THENl460 
1465 B=ASC(B$) 

1470 IFB=13THEN1520 

1 480 IFB= 20ANDLEN(RE$(T,K))=1THENRE$(T,K) 


="":GOT01510 

1490 IFB=20ANDLEN(RE$(T,K))>1THENRE$(T,K) 
=LEFT$(RE$(T,K),LEN(RE$(T,K))-1):GOT 
01510 

1495 IFLEN(RE$(T,K))>35THENl510 
1500 IF(B>31ANDB<91)OR(B>159ANDB<219)THEN 
RE$(T,K)=RE$(T,K)+CHR$(B) 

1510 GOTO1440 
1520 NEXTT 

1530 S=N:N=K:GOSUB765:N=S 

1550 PRINT"{ 2 GIU'jTUTTO BENE ? (S/N) 

1560 GETA$:IFA$="N"THENl420 
1570 IFA$<>"S"THEN1560 
1580 GOSUBl000:GOT0500 
1600 GOSUBl210 :1FH=1THENH=0 :GOTO500 
1610 PRINT:PRINTTAB(3)"VUOI PROPRIO CANC 
E{ 2 L} ARLA ? (S/N) "; 

1620 GETA$:IFA$="N"THEN500 
1630 IFA$<>"S"THEN1620 
1640 FORT=lTONC 
1650 RE$(T,K)=RE$(T,NU) 

1660 NEXT 

1670 NU=NU-1:GOSUBl000:GOTO500 
1680 GOSUBl000:GOTO500 


37 















Elenco delle principali routine 

10-80 

Schermo introduttivo. 

100-165 

Domande iniziali. 

170-495 

Routine di Generalizzazione. 

200-300 

Inizializzazione numero e titolo dei campi. 

310-380 

Scrittura dei nuovi dati sulla memoria di massa. 

390-490 

Lettura dei dati riguardanti campi e record definiti durante 


un utilizzo precedente. 

500-630 

Menu. 

640-690 

Routine di Fine. 

700-763 

Routine di Visualizzazione delle schede. 

765-790 

Subroutine di stampa delle schede. 

800-930 

Routine di Introduzione nuovi dati. 

800-807 

Controllo memoria disponibile 

810-840 

Introduzione nuovi dati 

850-920 

Controllo validità dati ed eventuale nuova immissione. 

930 

Registrazione e ritorno al menu. 

940-990 

Subroutine per il controllo della predisposizione della 


opportuna memoria di massa. 

1000-1090 

Routine di scrittura su disco o cassetta. 

1100-1190 

Routine di lettura da disco o cassetta. 

1200-1400 

Routine di Ricerca. 

1220 

Stampa campi. 

1230-1255 

Scelta campo. 

1260-1270 

Scelta parola da cercare. 

1280-1320 

Fase di ricerca. 

1330-1340 

Ricerca terminata. 

1350-1390 

Controllo validità scheda trovata. 

1410-1580 

Routine di Cambiamento. 

1410 

Salto alla subroutine di Ricerca. 

1430-1520 

Ciclo di presentazione e correzione dei dati. 

1530-1570 

Stampa e controllo nuova scheda. 

1580 

Registrazione nuovi dati e ritorno al menu. 

1600-1670 

Routine di Cancellazione. 

1600 

Salto alla subroutine di Ricerca. 

1610-1630 

Controllo del ricorso alla cancellazione. 

1640-1660 

Passaggio dell’ultima scheda al posto di quella da cancellare. 

1670 

Aggiornamento numero record, registrazione nuovi dati 

1680 

e ritorno al menu. 

Routine di Registrazione per fare una copia del file. 


Elenco delle principali variabili 

RE$(x,y) 

Matrice per la memorizzazione dei record. 

AS(x) 

Contiene i titoli dei campi. 

Fl$ 

Nome del file. 

NC 

NUìTTerrrdercampi dei fife. 

NU 

Numero dei record utilizzati. 

ME 

Serve per distinguere la memoria di massa utilizzata (cassette 


o dischetti). 

N 

Numero della scheda sulla quale si sta operando. 


devono prevedere, e quindi lasciare li¬ 
beri, quelli che serviranno all'introduzio¬ 
ne successiva dei vari dati: 50 record 
con 5 campi occupati in media 20 byte, 
richiedono ben 5.000 byte per la memo¬ 
rizzazione dei dati nelle variabili relative, 
e se non ci sono, incominciano i guai, a 
meno che non si sia corso ai ripari con 
linee come la 800. 

In considerazione di tali problemi, du¬ 
rante la cernita delle operazioni da inse¬ 
rire nel programma si è tentato di privile¬ 
giare l'utente medio del C16, preferendo 
routine che un “neocommodoriano" 
difficilmente è in grado di sviluppare da 
solo e tralasciando quelle non indispen¬ 
sabili alla probabile configurazione tipo 
di un acquirente del C 16, che nella 
maggioranza dei casi non possiede una 
stampante, e all'utilizzo che questi farà 
del programma, senz’altro tale da non 
richiedere sofisticate procedure di ricer¬ 
ca. 

Per quanto riguarda la possibilità di 
memorizzare i file su cassetta si è tenuto 
conto delle esigenze della maggioran¬ 
za, pur avvisando circa le difficoltà di 
tale procedura; mentre il ricorso a file 
relativi non è stato sviluppato in quanto 
il permettere l’uso delle cassette, che 
non sono in grado di gestire tale tipo di 
file, richiede una routine a parte per 
questa soluzione, con un aggravamen¬ 
to dei già citati problemi di memoria. 

A questo punto è d'obbligo una difesa 
della scelta di generalizzare il program¬ 
ma: operazione oltremodo dispendiosa 
per la memoria e facilmente sintetizzabi¬ 
le con un Read e pochi Data. 

La soluzione proposta è sorta dal biso¬ 
gno di offrire qualcosa di valido, pur 
nell’ambito delle scelte obbligate dalla 
struttura della macchina, non solo sotto 
l’aspetto del risultato finale, ma anche 
dal punto di vista didattico, per cui sono 
stati risolti i problemi più complessi, ma 
nello stesso tempo utili anche a chi pos¬ 
siede la configurazione minima. Fra 
questi rientra senz’altro di più la genera¬ 
lizzazione del programma, che è uno dei 
punti “deboli” accennati che, tra l'altro, 
data la progettazione modulare del pro¬ 
gram ma ,lTfa di m e nt e Tnseribileal posto 
di routine considerate personalmente 
inutili. 

In questo modo i possessori di dischetti 
potranno trasformare le operazioni di 
registrazione ricorrendo ai file relativi; 
chi ha una stampante può inserire una 
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minima serie di istruzioni in grado di 
soddisfare i propri desideri e chi volesse 
avere più memoria da mettere a disposi¬ 
zione dei file potrà annullare la fase di 
generalizzazione. 

In aiuto di chi sceglie questa soluzione, 
si dovranno annullare le linee comprese 
tra 210-380 e 400-480, modificare la 200 
in: 

200 G0T0495 
e aggiungere: 

11 FORT = 1T015 

12 READA$(T) 

13 IFA$(T) = "★"THENNC = T-1 
:GOTO20 

14 NEXT 

e una serie di Data terminanti con ★, per 
esempio 15 Data Nome e Cognome, Via 
e Numero, CAP Città PR, Telefono, ★ 
che ci permetterà di operare con 4 cam¬ 
pi e di memorizzare degli indirizzi. Con 
un numero diverso di campi sarà suffi¬ 
ciente modificare opportunamente la li¬ 
nea dei Data purché si faccia attenzione 
a terminarla con ★ che serve per il con¬ 
trollo di linea 13. 

Ricordando che il programma gira 
perfettamente anche sugli altri modelli 
Commodore, che avendo più memoria a 
disposizione possono accettare qua¬ 
lunque ampiamento senza problemi 
(per il C 64 si dovranno annullare solo le 
istruzioni per il sonoro, iniziami sempre 
con Sound), un ultimo consiglio per ri¬ 
sparmiare più memoria possibile: scri¬ 
vete tutte le istruzioni ricorrendo alle ab¬ 
breviazioni permesse. I più “esperti” po¬ 
tranno anche diminuire il numero di li¬ 
nee utilizzate concatenando più istru¬ 
zioni sulla stessa linea (operazione non 
sempre sviluppata per problemi di chia¬ 
rezza del listato), ma attenzione ai vari 
Goto, Gosub e If Then che spesso a tale 
manovra rispondo con dei messaggi di 
errore o con non corretti funzionamenti 
del programma se non viene mantenuto 
lo sviluppo logico dello stesso. ■ 



Arrivano i Quaderni Jackson, 
tanti volumi monografici per co¬ 
noscere bene il personal computer 
e l'informatica. 

Nei quaderni Jackson c'è tutto 
quello che è importante sapere 
sui computer, la programmazio¬ 
ne, i linguaggi, il software, le 
applicazioni e i nuovi sviluppi 
dell'informatica. 

Quaderni Jackson: l'informa¬ 
tica a tutti i livelli, in una collana 
aperta, pratica, essenziale, aggior¬ 
nata. 

L'informatica tascabile per chi 
vuole saperne di più e compiere 
così un salto di qualità nel mondo 
di oggi e di domani. 

Ogni mese, 2 volumi. 


Volumi già pubblicati: 

Gianni Giaccaglinì 

"Vivere col Personal Computer" 

Paolo Bozzolo 

“Dentro e fuori la scatola" 

Enrico Odetti 

“Ed è subito BASIC Voi. I” 

“Ed è subito BASIC Voi. Il” 

Paolo Capobussi 
e Marco Giacobazzi 

"A ciascuno il suo Personal" 

Fulvio Francescani 
e Fernando Paterlini 

“To do or not lo do" 

In edicola, 
a sole lire 6.000. 
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Umberto Barzaghi 
STATISTICA A UNA 
DIMENSIONE CON IL C64 

Il primo manuale didattico 
espressamente studiato per 
l'apprendimento dei principi 
fondamentali della statistica 
tramite calcolatore. 

Co d. S70A Pag. 172 Lire 17.000 


Rita Bonetti 

COMMODORE 16 PER TE 
BASIC 3.5 

Il primo libro-cassetta sul Com¬ 
modore 16 per imparare il BA¬ 
SIC sul video. 

Con cassetta. 

Cod. 413B Pag. 294 Lire 35.000 


Czes Kosniowski 

MATEMATICA 
E COMMODORE 64 


Un libro per chi vuol saperne di 
più sulle applicazioni matemati¬ 
che del C64, per studiare ma 
anche per divertirsi. 

Con cassetta. 

Cod. 5700 Paci. 158 Lire 24.000 


■orroMAu 

JACKSON 


La biblioteca che fa testo 


John Scriven, Patrick 

COMMODORE 64 
A SCUOLA 


Imparare è bello se lo si fa div 
tendosi; è il messaggio di qu 
sto libro scolastico ma diverten¬ 
te, sul Commodore 64. 

Co d. 574D Pag. 182 Lire 18.000 


Totomac 

IL SISTEMA TOTOMAC 
la nuova frontiera del 
totocalcio per C64 

Uomo del nostro tempo, Toto¬ 
mac si affida all’ausilio del com¬ 
puter per individuare le proba¬ 
bilità meno utilizzate dalla mas¬ 
sa dei giocatori, e, avendo ben 
presente i principi della selezio¬ 
ne naturale, cerca di batterli 
con tecniche intelligenti. 

Con cassetta. 

Cod. 576D Pag. 128 Lire 24.000 

Michael Browne 
UNITÀ A DISCHI 
per Personal Computer 

Il libro, destinato a lettori con 
una buona conoscenza di base 
dell'uso di un calcolatore e del 
linguaggio BASIC, descrive il 
funzionamento dell’unità a di¬ 
schi di un personal computer e 
il significato dei comandi relati¬ 
vi, con particolare attenzione 
per le diverse tecniche di ge¬ 
stione dei file su disco. 

Cod. 300P Pag. 158 Lire 15.000 
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Easy Video 64 

Gestione degli input da tastiera 

dì Maurizio Paolìnelli 


Introduzione 

S copo del programma propo¬ 
sto, è quello di facilitare la ge¬ 
stione delle videate che impli¬ 
cano operazioni di introdu¬ 
zione di dati da tastiera. 
é infatti quasi sempre presente nell'u¬ 
tente, l'esigenza di disporre di una pro¬ 
cedura di immissione dati che effettui un 
minimo di controllo sui tasti battuti. 

Se il test che normalmente si effettua 
alla fine di una videata non fornisce una 
risposta positiva, è inoltre necessario 
cancellare velocemente dallo schermo 
le informazioni da sostituire - lasciando 
inalterate quelle corrette - e ricomincia¬ 
re la procedura di immissione. 

Il programma Easy Video aggiunge al¬ 
cune routine in linguaggio macchina, 
richiamabili tramite il comando BASIC 
Sys, che facilitano le operazioni di input, 
il posizionamento del cursore e la can¬ 
cellazione immediata di parti definite 
dello schermo. 

Il programma 

Una volta caricato e lanciato, il pro¬ 
gramma legge in circa 10 secondi le 
routine specificate sotto forma di frasi 
Data, e le scrive collocandole nell'area 
di memoria $C000 -r $C31A (decimale 
49152 -l- 49946). 

Dopo un controllo sull'esattezza delle 
frasi Data, il programma visualizza l'e¬ 
lenco delle 6 routine disponibili e gli 
indirizzi (in decimale) per il loro richia¬ 
mo. Quindi elenca le istruzioni necessa¬ 
rie per la loro utilizzazione. Infine si au- 
tocancella, liberando l'area BASIC, che 
resta completamente a diposizione del¬ 
l'utente. 

In figura 1 è riportato un fac-simile del¬ 
le informazioni che compaiono sul vi¬ 
deo dopo il lancio del programma. 

Qui di seguito viene descritto il funzio¬ 
namento delle singole routine, mentre il 
disassemblato commentato del listato 1 
dovrebbe soddisfare l'esigenza di chi 
intende apportare delle modifiche. 

Le routine 

* SYSCIPT, <char.numb.> 
["prompt"]; <var.> 

É la routine più importante, che ha come 
scopo quello di facilitare la gestione del¬ 
la immissione dei dati da tastiera. 


Essa stampa, a partire dalla posizione in 
cui il cursore si trova al momento del suo 
richiamo, l'eventuale messaggio prompt 
(facoltativo) seguito da un numero di 
spazi in reverse pari al valore specificato 
da <char.numb.>. 

<char.numb.> specifica in definitiva il 
campo entro cui dovrà essere immessa 
l'informazione. 

Viene quindi generato un "finto" curso¬ 
re lampeggiante, posizionato all’inizio 
del campo di immissione. L’aspetto del 
cursore è funzione del tipo di variabile 
<var.> che viene specificata per rice¬ 
vere il dato in ingresso: i simboli $,% o. 
avvertono che la variabile <var.> è 
stata definita rispettivamente come va¬ 
riabile stringa, numerica intera o nume¬ 
rica reale. 

Da questo momento si attende l’intro¬ 
duzione di un dato da tastiera che non 
potrà avere un numero di caratteri su¬ 
periore alla lunghezza del campo evi¬ 
denziato in reverse (char.numb.). 
Battendo un tasto, comparirà l'eco - in 
reverse - del carattere scelto nella posi¬ 


zione indicata dal falso cursore lampeg¬ 
giante, e quest'ultimo si sposterà di una 
colonna verso destra segnalando l'atte¬ 
sa di un eventuale nuovo carattere. 

Il processo continua fino a quando non 
venga premuto Return. In tal caso, il 
contenuto del campo viene memorizza¬ 
to nella variabile <var.>, il campo in 
reverse viene sostituito dall'eco - in nor- 
mal - del dato immesso e il controllo 
viene restituito al programma che aveva 
chiamato la routine Cipt. 

Se la variabile < var. > è di tipo numeri¬ 
co e il dato introdotto è alfanumerico, 
viene generato un impulso sonoro, vi¬ 
sualizzato per circa un secondo il mes¬ 
saggio “? Redo" e quindi di nuovo il 
campo vuoto in reverse col cursore 
pronto per una nuova immissione di da¬ 
ti. 

Se si tenta di introdurre un numero di 
caratteri superiore a quello definito dal 
campo in reverse (<char.numb. >) vie¬ 
ne generato un impulso sonoro, cancel¬ 
lato Il contenuto del campo in reverse e 
riportato il cursore all’inizio del campo 


Figura 1 - 
I nuovi comandi 
della routine 
Easy Video. 


*************************** 
*** easy video per c.64 *** 

**************** ir********** 

Sintassi dei nuovi comandi 


CIPT=49175 

PL0T=49852 

BIP=48780 


EL=49859 

EF=49881 

CL=49895 


SYSCIPT,<char.numb.>["prompt"];<var.> 
SYSPLOT,< column>,<row > 

SYSBIP 

SYSEL,< column>,<row > 

SYSEF,<column>,<row> 
SYSCL,<col.l>,<rowl>,<col.2>,<row2> 
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Listato 1-11 disassemblato commentato della routine. 
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per ricominciare la procedura di immis¬ 
sione. 

Si tenga inoltre presente che: 

• durante la procedura di input sono 
interdetti i tasti Home,Clr,Crsr U, Crsr D, 
Crsr R, Del, Inst. È invece possibile servir¬ 
si del tasto Crsr L (salvo che non ci si 
trovi all’Inizio del campo) per tornare a 
correggere caratteri errati. Il tentativo di 
servirsi dei tasti proibiti, genera un im¬ 
pulso sonoro, cancella il contenuto del 
campo in reverse e riporta il cursore 
all'inizio del campo per ricominciare la 
procedura di immissione; 

• se <char.numb.> è maggiore di 78 
viene segnalato un “lllegal Quantity Er- 
ror"; 

• lo spazio totale interessato alla proce¬ 
dura di input, non può superare le due 
righe fisiche; ad esempio, se al momento 
del richiamo della routine Cipt il cursore 
si trova alla riga 5, colonna 30, il mes¬ 
saggio di "prompt" è composto di 6 
caratteri e <char.numb.> ha valore 50, 
la routine assegna a <char.numb.> il 
nuovo valore 42 ( = 78-30-6); 

• se si tenta di richiamare la routine in 
modo diretto, viene segnalato un “llle¬ 


gal Direct Error”. 

Si veda il prossimo paragrafo per un 
semplice esempio di impiego di questa 
routine. 

+ SYSPLOT, <column>, <row> 

E una semplice e nota routine che posi¬ 
ziona il cursore alla colonna <co- 
lumn> e alla riga <row>,dove <co- 
lumn> può assumere valori compresi 
fra 0 e 39, e < row> valori compresi fra 
0 e 24. 

Ad esempio l'esecuzione della linea: 

PLOT = 49852:A = 17:SYSPLOT,A, 11 : 
PRINT-ECCO" 

stampa Ecco al centro dello schermo. 
+SYSBIP 

Genera un impulso sonoro; è la stessa 
routine già apparsa su Personal Soft¬ 
ware del Marzo '85 pagina 86. 

Ad esempio l'esecuzione della linea: 

BIP = 49780:SYSBIP 

produce un "beep". 

•k SYSEL, <column>, <row> 

Cancella lo schermo dalla posizione 


< row>, < column > a fine linea fisica; ì 
limiti per < column > e <row> sono i 
consueti (0 -r 39 e 0 h- 24). 

Ad esempio, si cancelli lo schermo e 
sulla prima riga si digiti: 

EL = 49859:R% = 0:C% = 20:SYSEL, 
C%,R% 

L'esecuzione di questa linea cancella 
dallo schermo la metà destra della linea 
stessa appena digitata. 

* SYSEF, <column >, <row> 

Cancella lo schermo dalla posizione 

< row >, < column > a fine pagina; i li¬ 
miti per < column > e <row> sono i 
consueti (0 -r 39 e 0 -f 24). 

Ad esempio, dopo aver riempito a piace¬ 
re le ultime due righe dello schermo, si 
riporti il cursore in alto a sinistra e si 
digiti: 

EF = 49881 .SYSEF, 0,23 

L'esecuzione di questa linea cancella le 
ultime due righe dello schermo. 

kSYSCL. <col. 1 >. <row 1 >, <col.2>, 
<row2> 

Cancella lo schermo dalla posizione 
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Listato 2 - Il programma Easy Video 64. 

0 REM *************************** 


1 REM * * 

2 REM *** EASY VIDEO PER C.64 *** 

3 REM * * 

4 REM * DI * 

5 REM * MAURIZIO PA0LINELLI * 

6 REM * VIA MAGELLANO, 15 * 

7 REM * 20094 CORSICO MI * 

8 REM * TEL. (02)4407707 * 

9 REM * * 


10 REM*************************** 

16 GOSUB80 

18 PRINT"{GIU 1 }ATTENDI CIRCA 10 SECONDI, 
PREGO 1" 

19 REM *** LETTURA DELLE NUOVE ROUTINE 

20 A=0:FORI=49152T049946:READN:A=A+N:POKE 
I,N:NEXT 

22 IFAOl 01 666THENGOSUB80: PRINT" 

( 4 GIU 1 }ERRORE NELLE ISTRUZIONI DATAI 
" : END 

24 GOSUB80:PRINTSPC(7)CHRS(14)"{GIU 1 }SINT 
ASSI DEI NUOVI COMANDI" 

26 PRINTSPC (7) ".-.-. 

{GIU 1 )" 

28 PRINT" CIPT =49175"TAB(20)"EL=49859":PRI 
NT" PLOT =~4?852"TAB ( 20) "EF-T5881 " 

30 PRINT"BIP=49780"TAB(20)"CL=49895" 

32 PRINT"TT GIU’) SYSCIPT ,<CHAR.NUMB.>["C 
HRS(34)"<PROMPT>"CHR$(34)");<VAR.>" 


34 PRINT" SYSPLOT ,<C0LUMN>,<R0W>" 

36 PRINT" SYSBIP " 

38 PRINT"SYSEL,<COLUMN>,<R0W>" 

40 PRINT"SYSEF,<COLUMN>,<ROW>" 

42 PRINT"SYSCL,CCOL.1>,<R0W1>,<C0L.2>,<RO 
W2>" 

44 NEW:END 

80 PRINT"(CLR)(GIU*}"SPC(6):FORI-0TO26:PR 
INT"*";:NEXT:PRINT 

82 PRINTSPC(6)"*** EASY VIDEO PER C.64 ** 

84 PRINTSPC(6): FORI=0TO26:PRINT"*"; :NEXT: 
PRINT:RETURN 

100 DATA3,6,1,0,69,6,1,32,18,32,146,157,3 
2,157,63,82,69 

110 DATA68,79,0,0,15,234,32,241 ,1 83,224,7 
9,144,3,76,72,178,142 
120 DATA0,192,32,121,0,201,34,240,8,169,5 
9,32,255,174,76,62,192 
130 DATA32,189,174,169,59,32,255,174,32,3 
3,171,32,166,179,169,44,141 
140 DATA255,1,32,139,176,133,73,132,74,56 
,32,240,255,142,2,192,142 
150 DATA6,192,140,1,192,140,5,192,169,0,1 
41,20,192,24,173,0,192 
160 DATAI 09,1 ,1 92,141 ,21 ,192,201 ,79,1 44,1 
2,56,169,78,141,21,192,237 
170 DATAI,192,141,0,192,224,24,144,17,173 
,21,192,201,39,144,10,238 
180 DATA20,192,165,218,48,3,238,20,192,16 
9,18,32,210,255,172,0,192 
190 DATAI 69,32,32,210,255,136,208,250,162 
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<row1 >,<col.1 > alla posizione 

< row2>, <col.2> ; i limiti per 

< col. 1 >, < col.2 >, < rowl >, < row2 > 
sono i consueti (0-^39 e 0-H24). Se il 
punto iniziale <row1 >,<col.1 >, si 
trova successivamente al punto finale 

< row2 >,< col.2 >, viene segnalato un 
“lllegal Quantity Error". 

Ad esempio, si riempiono le prime tre 
righe dello schermo con caratteri a pia¬ 
cere, si prema almeno una volta Crsr D; 
e si digiti: 

CL = 49895:R1 = 1 :C1 = 8:SYSCL,C1 ,R1, 
C1-1.R1 + 1 

L’esecuzione di questa linea cancella 
dallo schermo 40 caratteri a partire dal¬ 
la seconda riga, 9° colonna. 
L'esecuzione della linea: 

CL = 49895:SYSCL,3,2,3,1 

provoca un "lllegal Quantity Error" poi¬ 
ché il punto iniziale (2,3) si trova dopo il 
punto finale (1,3). 


Un esempio di applicazione 

Come semplice esempio di utilizzo delle 
routine descritte, si digiti il seguente pro¬ 
gramma: 

NEW < RETURN > 

10 CIPT = 49175:PLOT = 49852: 

BIP = 49780:EL = 49859:PRINT 
”[<CLR>]" 

15 SYSPLOT.10,2:PRINT"QUESTO 
È UN ESEMPIO" 

20 SYSPLOT,0,10:SYSCIPT,5 
"DATO (>13000): ";A 
30 IFA< = 13000 THEN 

SYSBIP:SYSEL,0,10:GOTO 20 
40 SYSPLOT,0,20:PRINT“HAI 

INTRODOTTO IL NUMERO";A:END 
RUN < RETURN> 

Dopo aver stampato sulla terza riga del¬ 
lo schermo "Questo è un esempio", alla 
riga 10 compare il messaggio Dato 
(>13000): e un campo in reverse di 5 
caratteri con un punto lampeggiante sul 
1° carattere. 


Si premano i tasti 123456 e si osservi 
l’eco sul video. Quando si preme il tasto 
6 (si cerca di immettere il 6° carattere in 
un campo definito di 5 caratteri), si sen¬ 
te un "beep", il campo viene cancellato 
e si riposiziona il cursore sul 1° carattere 
per una nuova introduzione. 

Si premano i tasti 123A< Return >. Si 
cerchi cioè di introdurre nella variabile 
numerica A un dato alfanumerico. Si 
sente un “beep”, compare il messaggio 
“? Redo" per un secondo e quindi si 
ricomincia dall’inizio. 

Si premano ora i tasti 12345 < Return >. 
Essendo il numero introdotto minore di 
13.000, viene cancellata l'intera riga n° 
10 e ripresentata la richiesta di immis¬ 
sione. 

Si premano i tasti 129 < Crsr L> <Crsr 
L> 3201 < Return>. Sul video compa¬ 
re il numero corretto 13.201 al posto del 
campo in reverse e alla riga 20 il mes¬ 
saggio definito nella linea 40 del pro¬ 
gramma. ■ 


Seguito programma Easy Video 64. 


,3,189,7,192,32,210,255,202 
200 DATA208,247,173,20,192,240,17,206,2,1 
92,206,6,192,201,2,208,7 
210 DATA206,2,192,206,6,192,234,24,174,2, 
192,172,1,192,32,240,255 
220 DATAI 62,0,142,3,1 92,169,32,141 ,7,192, 

160.112.140.4.192.24.174 

230 DATA6,192,1 72,5,1 92,32,240,255,1 73,7, 
192,166,13,240,4,73,4 
240 DATA208,10,166,14,240,4,73,5,208,2,73 
,14,141,7,192,32,210 

250 DATA255,32,36,225,201,0,208,10,32,179 
,238,206,4,192,208,241,240 
260 DATAI 97,201,29,240,1 10,201 ,17,240,106 
,201,145,240,102,201,19,240,98 
270 DATA201,147,240,94,201,20,240,90,201, 
148,240,86,72,162,3,189,10 
280 DATAI 92,32,210,255,202,208,247,104,20 
1,13,240,94,32,22,231,201,157 
290 DATA208,19,169,18,32,210,255,174,5,19 
2,236,1,192,240,49,206,3 
300 DATAI 92,76,1 44,193,1 74,3,192,157,0,2, 
232,142,3,192,236,0,192 
310 DATA240,4,176,26,144,5,169,146,32,210 
,255,56,32,240,255,152,192 
320 DATA40,208,1,202,142,6,192,140,5,192, 

76.209.192.32.116.194.174 

330 DATA2,192,172,1,192,24,76,78,192,166, 
21 4,1 64,21 1 , 192,39,208,1 
340 DATA232,76,1 22,1 93,1 74,3,1 92,1 69,0,1 5 
7,0,2,174,2,192,24,172 
350 DATAI,192,32,240,255,169,146,32,210,2 
55,174,3,192,240,12,160,0 
360 DATAI 85,0,2,32,210,255,200,202,208,24 
6,56,173,0,192,237,3,192 
370 DATAI 70,240,8,169,32,32,210,255,202,2 


08,250,165,122,16.4,123,133,75 
380 DATAI 32,76,162,255,160,1 ,1 34,122,132, 
123,32,115,0,36,13,16,16 
390 DATAI 65,122,164,123,32,141 ,1 80,32,226 
,183,32,218,169,76,5,194,32 
400 DATA243.188,165,14,32,194,169,32,121, 
0,240,97,165,13,72,165,14 
410 DATA72,24,174,2,192,172,1,192,32,240, 
255,32,116,194,174,0,192 
420 DATAI 69,32,32,210,255,202,208,250,24, 
174,2,192,172,1,192,32,240 
4 30 DATA255,169,14,160,192,32,30,171,160, 
4,162,0,32,179,238,202,208 
440 DATA250,136,208,245,24,174,2,192,172, 
1,192,32,240,255,162,5,169 
450 DATA32,32,210,255,202,208,250,104,133 
,14,104,133,13,165,75,164,76 
460 DATAI 33,122,132,123,76,1 34,193,165,75 
,164,76,133,122,132,123,96,169 
470 DATA0,141,4,212,141,5,212,141,6,212,1 
41,2,212,169,7,141 ,3 

480 DATA212,169,34,141 ,5,212,169,82,1 41 ,1 
,212,169,65,141,4,212,169 
490 DATAI 5,1 41 ,24,212,96,234,234,169,40,1 
33,254,169,25,133,253,32,241 
500 DATAI 83,224,40,144,3,76,72,178,1 38,72 
,32,241,183,224,25,176,244 
510 DATAI 04,168,96,32,158,1 94,32,240,255, 
96,32,158,194,32,240,233,32 
520 DATA36,234,169,32,145,209,32,218,228, 
200,196,254,144,244,96,32,158 
530 DATAI 94,32,1 98,1 94,1 60,0,232,228,253, 
144,246,96,32,158,194,138,72 
540 DATAI 52,72,32,1 66,194,1 34,251 ,202,134 
,253,132,252,104,168,104,170,228 
550 DATA251,240,4,176,171,208,8,196,252,2 
40,9,176,163,144,5,32,220 
560 DATAI 94,160,0,165,252,1 33,254,230,254 
,32,198,194,96 
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ZX SPECTRUM 


idea del programma è nata 
dalla curiosità di vedere se 
riuscivamo a realizzare un 
gioco "manuale” su di un 
piccolo elaboratore. 

Naturalmente il programma ha delle li¬ 
mitazioni rispetto al gioco originale 
(non pensate di poter battere il record 
mondiale di velocità nel risolverlo), ma 
grazie alle indiscutibili doti del nostro 
Spectrum, abbiamo raggiunto delle va¬ 
rianti al gioco, varianti che sarebbero 
risultate impossibili da realizzare con il 
vero cubo. Così il cubo non è più 3 + 3, 
ma 4 + 4.1 puristi del cubo di Rubik non 
gridino allo scandalo: il motivo di questo 
cambiamento rivoluzionario (che scom¬ 
pagina tutte le tattiche esistenti) stà nel 
fatto che vogliamo lasciare la possibilità 
anche ai neofiti di questo gioco, di ela¬ 
borare una propria strategia, o per lo 
meno di non sfigurare di fronte agli e- 
sperti. Se un "purista" si è sentito male 
dopo questa mini-rivoluzione, non leg¬ 
ga avanti. 

Infatti le variazioni sull'originale non so¬ 
no finite: quando facciamo scorrere le 
file più esterne, cosa che normalmente 
farebbe girare su se stessa anche la 
faccia antistante, questa ultima in realtà 
non si gira su se stessa. 

In definitiva potremo soprannominare 
il programma "Cubo digitale", tante so¬ 
no le variazioni (figura 1). 

Il programma ha avuto una lunghissima 
fase di debug per cui non demoralizza¬ 
tevi se qualche routine vi risulta un po' 
oscura: in definitiva il programma è ri¬ 
sultato piacevole, con una buona grafi¬ 
ca, abbastanza veloce, effetti musicali, e 
senza alcun bug possibile. 

Finora siamo riusciti a risolvere il cubo 
al livello 1. Per curiosità vi informiamo 
che dopo la scelta del livello, il mischia¬ 
mento del cubo è dovuto sia al numero 
che avete scelto, che a un coefficente 
casuale. Perciò ci può essere un livello 3 
più difficile di un livello 4. 

In conclusione il programma vuole es¬ 
sere uno stimolo per la vostra intelligen¬ 
za, troppo lungo intorpidita dai giochi 
"spara e fuggi" dello Spectrum; 



Caricamento e funzionamento 

Il programma è diviso in due parti: 

1) caricatore BASIC; 

2) programma vero e proprio. 


Cubo Magico 

Giochiamo con lo Spectrum 
ad una nuova versione 
del celeberrimo rompicapo 



Il caricatore BASIC definisce i 4 caratteri 
grafici del programma, le frecce, carica 
in un’area di memoria riservata (da 
65000) il linguaggio macchina necessa¬ 
rio (44 byte) e con Load" " carica il vero 
programma. Da notare la linea "0” otte¬ 
nuta "pokando" in 23755,0. La linea "0" 
è anche usata da software house pro¬ 
fessionali per la protezione dei pro¬ 
grammi (Edit impossibile, Merge che 
non funziona). In fase di battitura la si 
può anche omettere. Per salvare il cari¬ 


catore battere in modo immediato "Go¬ 
to 9999”. Infatti a questa linea si salva il 
programma con l'AutoRUN(Line). 

Dopo aver salvato il caricatore lo si può 
anche cancellare e passare a battere il 
programma vero e proprio. Per battere 
quest'ultimo non ci dovrebbero essere 
problemi. Forse l'unica difficoltà potreb¬ 
be derivare dai caratteri grafici. Vi ricor¬ 
diamo che la A è la freccia in altro, B in 
basso, C verso sinistra e D verso destra. 

Dopo aver battuto tutto, lo si deve regi- 


Figura 1 - Una videata del gioco. 
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strare subito dopo il caricatore, lascian¬ 
do solo un piccolo spazio. 

Per far ciò battete in modo diretto 
Save“"Line 1. 

Predisponete i cavetti e eseguite quello 
che avrete già fatto decine di volte. Evi¬ 
tate di fare "pastrocchi” sovrapponen¬ 
do il programma al caricatore. Se tutto 
OK possiamo provare il programma e 
vedere come funziona. Riavvolgete il 
nastro a prima del caricatore e date il 
Load (oppure date Run se avete la routi¬ 
ne in linguaggio macchina già in memo¬ 
ria). Dopo un attimo di attesa vi verrà 
richiesto il livello di gioco. Vi consiglia¬ 
mo di battere 0, almeno per le prime 


volte. 

Il computer comincerà a mischiare il cu¬ 
bo mostrandovi la situazione sul video. 
Quando avrà finito premete Enter per 
iniziare. Premendo un tasto da "a" a 
"p" potrete spostare la fila scelta nella 
direzione voluta. Ad esempio pemendo 
"e" cambierà tutta la prima fila. Pemen¬ 
do "Q",“R",“S","T" cambierà il punto 
di osservazione del cubo. Da notare in 
basso a sinistra la piccola rappresenta¬ 
zione tridimensionale del cubo. 

Nella parte alta dello schermo, a sini¬ 
stra è indicato il numero di schermo 
mostrato (per cambiarlo, basta premere 
Q,R,S,T), mentre a destra scorre il tem¬ 


po. Quando ritenete di aver completato 
il cubo, battete Enter; se lo avete com¬ 
pletato veramente comparirà un mes¬ 
saggio di complimentazione accompa¬ 
gnato da una musica, in seguito verrà 
scritto il tempo impiegato per comple¬ 
tarlo. Vi viene chiesto se volete rigiocare 
(S/N) e ad una risposta negativa il com¬ 
puter si resetta (New). 

Se invece non avevate completato il cu¬ 
bo, il computer ve lo farà notare, e suc¬ 
cessivamente vi verrà chiesto se volete 
continuare. Rispondendo “S” potrete 
continuare a sistemare il cubo, mentre 
rispondendo “N" potrete ricominciare 
una nuova partita. 


Listato 1 • Il programma Cubo Magico. 


15 DEEP .2,0 

20 LET SCHERMOsl: BQRDER 0: PR 
PER 0: INK 6: CLS : PRINT #0; PR 
PER 4; INK 0; FLASH 1; " Fe f 

ma il registratore 

70 DIM a (6,4,4.) : DIM B(6,4,3): 
DIM G (4.) : DIM H (4) 

71 REM 

Dati per le 6 facci® 

72 DRTR 4-,3,2,5,3,6,6,3,5,2,3, 

4. 

82 DRTR 1,4-,3,5,4.,6,6,4-,5,3,4-, 

1 

92 DRTR 2,1,4.,5,1,6,6,1,5,4.,1, 

2 

102 DRTR 3,2,1,5,2,6,6,2,5,1,2, 
3 

112 DRTR 1,6,3,4,6,2,2,6,4,3,6, 

1 

122 DRTR 1,5,3,2,5,4-, 4,5,2,3,5, 

1 

131 DRTR 76,64,72,68 
160 RESTORE : FOR Cai TO 6: FOR 
dal TO 4: FOR e>l TO 3: RERD ò( 
c , d , e ) : NEXT e: NEXT d: NEXT c 
170 FOR Cai TO 6: FOR d=l TO 4: 
FOR e a 1 TO 4: LET a ( C , d , e) = 7+8* 
C: NEXT e: NEXT d: NEXT C 
180 RESTORE 131: FOR a=l TO 4: 
RERD h (a) : NEXT a 

189 REM 

190 REM Parte grafica 

191 REM 

200 CLS : BEEP .2,0: PLOT 64,15 
1: DRRU 127,0: DRRU 0,-127: DRfiU 
-127,0: DRRU 0,127 
220 PLOT 64.87: DRRU 127,0: PLO 
T 64,55: DRRU 127,0: PLOT 64,119 
: DRRU 127,0 

240 PLOT 127,151: DRRU 0,-127: 
PLOT 96,151: DRRU 0,-127: PLOT 1 
59,151: DRRU 0,-127 
260 PLOT 29,37: DRRU -20,0: DRR 
U 0,-20: DRRU 20,0: DRRU 0,20: D 
RRU 16,16: DRRU 0,-20: DRRU -16, 
-16: PLOT 9,37: DRRU 16.16: DRRU 


20.0 

270 PLOT 1,12: PLOT 2,11: PLOT 
3,10: DRRU 249,0: DRRU 3,3: DRRU 
0,150: DRRU -3,3: DRRU -249,0: 
DRRU -3,-3: DRRU 0,-150 

275 REM 

276 REM Tasti per muovere 

277 REM 

280 PRINT RT 2,9;"a* b* C♦ d 
t";RT 19,9;-1 + K + j + i+ " 

300 PRINT RT 4,7;"P";RT 8,7;"0" 
; RT 12,7; "n"; RT 16,7; "m" 

310 PRINT RT 5,7; RT 9,7;"+" 

; RT 13,7; RT 17,7; "*" 

320 PRINT RT 4,24;"e“;RT 8,24;" 
f" ;RT 12,24;"9";RT 16,24;“h" 

330 PRINT RT 5,24;"4";RT 9.24;" 
+ ";RT 13,24;"4";RT 17,24;"+" 

334 REM 

335 REM Scrive il numero della 

faccia e i numeri delle 
faccie laterali ad essa 


336 REM 

340 PRINT RT 18,2;SCHERMO;RT 17 
,4;B(SCHERMO,4,1);RT 16,3;B(SCHE 
RMO,2,1) 

345 REM 

346 REM Dati per la musica 

347 REM 

350 DRTR 2,"15",1,"15",3,"16",3 
,"15",3,"17",3,"14",2,"13",5,"12 
",1,"14",1,"17”.2,"19",4,"21",.1 
,"36",.1,"36",.1,"36",.1,"36",1, 
"14" ,2, "17” ,2,"19",4,"21" 

351 DRTR 0,"0",0,"0",0,”0",1,"1 
4",2,"17”,2,"19",4,"2i",3,"17", 3 
,"14",2,"17",3,"16",0,"0",0,"0", 
0,"0",2,"17",2,"17",3,"16",5,"14 
",3,"17",2,"21",4,"19",5,"16",7, 
”14" 

362 PRINT RT 0,15;"R*";RT 21,15 
; "S + ";RT 10,4;"0”;RT ll,4;"+";RT 

10,27;"T";RT 11,27;"+" 

353 INPUT "": PRINT «0;RT 1,9; 
INK 6;"LIUELLO? (0 - 9)" 

354 LET Nf-INKEYi: IF Nt<"0" OR 

N$ >"9" THEN GO TO 364 

355 INPUT "": LET Ja((URL Ni)+1 
)*4+INT (RND*4): PRINT «0;AT 1,0 
; FLRSH 1; INK 4; PAPER 0;" Rs 
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Seguito programma Cubo Magico 


petta : mischio il cubo FQ 

R a =-12 TO 36: BEEP .1,S: BEEP . 
01,36 : NEXT a: PRINT #0;flT 1,0; 
FLRSH 1; INK 4.; PfiPER 0;" ! Può 

i vedere che non baro! 

356 FOR K = 1 TO U: RRNDOMIZE : L 

ET R$ =CHR* (65+INT (RND*16)): LE 

T UERSO=l*(R«>"L") +2* (fi* <"E") +3* 
(fl* >"H" AND fl$<"M") +4.# <fl*>"D" RN 
D R* <"I") 

357 LET FRCCIR=SCHERMO: LET NUh 
ERO =CODE fl*-H(UERSO) : IF (UERSO= 
1 OR UERSO-3) THEN LET NUMER0*5- 
NUMERO 

358 GO SUB 1000+(UERS0=2 OR UER 
S0=3) *100 : BEEP .01..36: BEEP .01 
,24-: NEXT K 

360 PRINT «0;RT 1,0; FLRSH 1; I 
NK 4.; PRPER 0, " Premi ENTER 
per iniziare 

365 REM 

366 REM Suona la musica per una 

durata =Max 

367 REM 

370 LET max =8 

380 RESTORE 350: FOR a=l TO max 
390 IF INKEY $ =CHR$ 13 THEN GO T 
0 4-50 

400 RERD g,H*: BEEP P/10,URL H* 

: NEXT a 

410 IF max=3 THEN LET ma*43 
420 IF max=43 THEN LET ma=3 
430 LET max=ma: GO TO 380 

440 REM 

441 REM FN bO per il tempo 

442 REM 

450 POKE 23658,8: POKE 23672,0: 
POKE 23673,0: POKE 23674,0: DEF 
FN b()=INT ( (PEEK 23674*65536+P 
EEK 23673*256 +PEEK 23672) /50) 

460 FOR R«1 TO 12: BEEP .1,R*2: 
BEEP .01,36: BEEP .01.36-R*2: N 
EXT R 

480 BEEP .1,0: PRINT RT 18,2;SC 
HERMO; RT 17,4.; B (SCHERMO .4,1) ; RT 
16,3;B(SCHERMO,2,1) 

490 print rt 0,0;"Schermo ";SCH 
ERMO; RT 0,22.1 "Sec : : PRINT 80; I 

NK 6;RT 1,0;"Premi ENTER per fer 
mare il temoo" 

495 REM 

496 REM 

497 REM Prende i dati dalla 

INKEY* e li passa alla 
routine di gestione cubo 

498 REM 

499 REM 

500 BEEP .01,RND*24 : PRINT RT 0 
,26;FN B ( ) 

520 LET R*=INKEY*: IF (R*<"R" 0 
R fi* >"T") RND R$ < >CHR* 13 THEN G 
0 TO 500 

530 IF fl*=CHR* 13 THEN GO TO 30 
00: REM ENTER=CHR* 13 

540 IF fi* >"P" THEN GO TO 2000 
550 LET UERSO = l*(a * >"L" RND a*< 
"O")+2* (a*>"@" RND a *< "E" )+3* (a * 

>"H” RND a * <"M") +4* (fi* >"D" RND fi 
*<"I") 

560 LET FRCCIR =SCHERMO: LET NUM 


ERO =CODE R*-H (UERSO) : IF UERSO = l 
OR UERSO =3 THEN LET NUMER0*5-NU 
MERO 

570 GO SUB 1000+(UERS0=2 OR UER 
SO=3)*100: GO TO 500 

990 REM 

991 REM rout. di gestione cubo 

in caso di spostamenti 
a destra(UERS0=4) o a 
sinistra (UER30*1) 

992 REM 

1010 FOR N-l TO 4: LET G(N)=R(SC 
HERMO,NUMERO,N): NEXT N 
1020 FOR fl-1 TO 3 

1030 FOR 8-1 TO 4: LET FRCCIR1=B 
(schermo,UERSO,a) 

1040 LET fl (FACCIA,NUMERO,B)*fl(FR 
CCIR1,NUMERO,B): NEXT B 
1050 LET faccia*facciali NEXT fl 
1060 FOR R»1 TO 4: LET RCFRCCIR, 
NUMERO,R)*G(fl): NEXT fl 
1070 GO TO 6000 

1091 REM 

1092 REM rout. di gestione cubo 

in caso di spostamenti 
verso su' (UERS0=2) o 
in giu' (UERSO-3) 

1093 REM 


© Dalla grande 
edìcola Jackson 

Tutto sul personal 
computer 


compuscuola 

La rivista di informatica nella didattica per la 
scuola italiana 

9 numeri all'anno L 2.000 a numero 
Abbonamento; solo L 15.000 


Personal 

L’Unica rivista indipendente per gli utenti del 
personal computer Olivetti 
10 numeri all'anno: L 4.000 a numero 
Abbonamento; solo L 35.000 


PC 

L'unica rivista italiana dedicata ai sistemi 
MS-DOS, Personal computer IBM e 
compatibili 

10 numeri all'anno L 5.000 a numero 
Abbonamento; solo L 40.000 


PERSONAL 

SOFTWARE 


Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi 
operativi. 

11 numeri all'anno L 4.000 a numero 
Abbonamento; solo L 34.000 



La prima rivista europea di personal 
computer, software e accessori. Con test, 
novità, analisi del mercato 
11 numeri all'anno: L 5.000 a numero 
Abbonamento solo L 43.000 


Quando l’informazione 
fa testo 


In butta chiusa Inviate questo coupon a: 
Gruppo Editoriale Jackson 
via Roseltlnl, 12 - 20124 MI 
□ Desidero ricevere GRATIS un numero 
della Rivista_ 


(allego L 1 000 in francobolli per 
contributo spese di spedizione) 

□ Inviatemi GRATIS il Catalogo della 
Biblioteca JACKSON (allego L 1000 
in francobolli per contributo spese di 
spedizione) 


Nome 






• CAP 

Città 

U..... 
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Comunque il funzionamento è molto 
più semplice di quanto lo si sia descritto, 
grazie alle frecce, che indicano senza 
ombra di dubbio, cosa fa un certo tasto 
se premuto. 

Ci auguriamo che il programma risulti 
per lo meno interessante e di stimolo per 
una sempre più proficua utilizzazione 
dello Spectrum. 

Strutture dei dati 

Per effettuare le opportune rotazioni si 
è dimensionato un array con misure 
6,4,4, corrispondenti al numero di facce 
del cubo, e alle due dimensioni di ogni 


faccia (base e altezza, per intenderci). 
Questo è l’array A (di nome e di fatto). 
Abbiamo poi dimensionato un array B 
con dimensioni 6,4,3, corrispondenti al 
numero di facce, alle possibili rotazioni 
(sinistra, sù, giù, destra), e al numero di 
facce coinvolte nella rotazione oltre a 
quella visualizzata sul video. In sostan¬ 
za, per effettuare delle rotazioni, biso¬ 
gna: 

1) salvare in un array di servizio i dati 
che devono essere cambiati per evitare 
che vadano persi; 

2) prendere dall’array B il numero dello 
schermo da cui prelevare i dati necessa¬ 
ri; 


3) prelevare i dati e immetterli nello 
schermo attuale; 

4) cambiare il numero dello schermo 
con quello ottenuto al punto 2; 

5) ritornare al punto 2 (ripetere 3 volte); 

6) immettere nello schermo attuale i dati 
salvati nell’array di servizio al punto 1; 

7) Return. 

All’inizio di ogni nuova partita l’array A 
viene rinfrescato, cioè viene rimesso ai 
valori iniziali (che variano a 8 per la 
prima facciata, e a 48 per la sesta). 
Verso la linea di programma 350 ci 
sono una serie di dati per la musica, che 
accompagna il gioco nei momenti di 
attesa ("Premi Enter per iniziare"), e 


Seguito programma Cubo Magico 


1110 FOR N = 1 TG 4: LET G(N)=A(SC 
HERMO,N,NUMERO): NEXT N 
1130 FOR A = 1 TO 3 

1130 FOR B«1 TO 4.: LET FACCIAlsB 
(schermo..UERSO,a) 

1140 LET A (FACCIA,B,NUMERO) »fl (FA 
COIAIjB,NUMERO): NEXT B 
1150 LET FACCIA=FACCIA1: NEXT A 
1160 FOR A«1 TO 4: LET A(FACCIA, 
A,NUMERO)=G (A): NEXT A 
1170 GO TO 6000 

1991 REM 

1992 REM Cambio di Vista del CU 
bO 

1993 REM 

2000 LET UER50 =CODE A*-80 

2010 LET SCHERMO=B(5CHERM0,UERSO 

,1): GO SUB 6000: GO TO 480 

2990 REM 

2991 REM controlla se il cubo 

e ' finito 

2992 REM 

3000 LET T =PEEK 23674: LET Y =PEE 
K 33673: LET U»PEEK 23672 
3005 FOR A = 1 TO 6: LET H=A(A,1,1 
): FOR B=1 TO 4: FOR C=1 TO 4: 
3010 IF fl(fl,B,C) < >H THEN GO TO 4 
000 

3030 NEXT C: NEXT B: NEXT A 

3025 REM 

3026 REM CUbO finito 

3027 REM 

3030 PRINT »0:AT 1,0; INK 6;“Com 
pi intenti lo hai completato !!": 
RESTORE 350: FOR a al TO 43: READ 
9 ,h $ : BEEP g/10,UAL h $ : NEXT a 
3040 INPUT POKE 23674 J : POK 

E 23673,Y: POKE 23672,U: PRINT 8 
0 ;AT 1,0; INK 6;" Hai impiegato 
" ; FN b();" secondi": FOR B = -l T 
0 3: FOR A=1 TO 20: BEEP .02,A+B 
*15: NEXT A: NEXT B 
3050 INPUT "••: PRINT 80; AT 1,4; 
INK 6;"Uuoi rigiocare ? (s - n) " 
3060 LET a $ = INKEY $ : IF a$<>"3" A 
ND A $ < >"N" THEN GO TO 3060 
3070 IF AS="S" THEN CLS : PRINT 


80; AT 1,4; INK 6.;" 0 . K. risi sterri 
0 il cu bO ": GO TO 170 
3080 NEU) 

3100 RESTORE 350: FOR A*1 TO 51: 
READ G,H: BEEP G/10,h: NEXT A 

3991 REM 

3992 rem Cubo non finito 

3993 REM 

4000 PRINT 80;AT 1,0; INK 6; "Mi 
dispiace : non completato !! ": 
FOR a =1 TO 5: BEEP 1.5,30-a*6: N 
EXT a 

4010 INPUT PRINT 80;AT 1,0; 

INK 6;" Uuoi continuare ? (s - 
n) " 

4015 LET n $ = INKEY$: IF n*<>"5" A 
ND n«>"N" THEN GO TO 4015 
4020 IF n*="S" THEN POKE 23674,T 
: POKE 23673,Y: POKE 23672,U: GO 
TO 480 

4030 CLS : PRINT TAB 14;"0.K.": 
GO TO 170 

5991 REM 

5992 REM 

5993 rem cambia gii attributi 

dello schermo per 
simulare il cubo 

5994 REM 

5995 REM 

5000 FOR b=l TO 4: FOR C=1 TO 4: 
POKE 65001,a (Schermo , b , C) : POKE 
65003,8+4*(C-l): POKE 65004,3+4 
* ( b-1) : RANDOMIZE U5R 65000: NEX 
T C: NEXT b: RETURN 
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quando si riesce a completare il cubo. 
Da notare come questi dati non venga¬ 
no “emmessi” di seguito come un unico 
blocco, ma sono divisi in due blocchi, 
rispettivamente di 8 e di 43 suoni. Que¬ 
sto allo scopo di evitare di annoiare con 
la stessa musica. 

Se volete una ulteriore precisazione sul 
perché della struttura dell'array B così 
macchinosa, diremo semplicemente 
che ciò che è destra per una faccia del 
cubo non lo è per certe altre, e la stessa 
cosa vale per sù, giù, sinistra. Perciò ne 
risultava che i dati che noi volevamo 
trasferire in alto, andavano a finire a 
destra, con conseguente falsamento 
dell'andamento della partita. 

Routine Assembiy 

La routine che proponiamo insieme al 
programma Cubo Magico consente di 
cambiare gli attributi di una parte dello 
schermo. 

Date le coordinate x,y dell'angolo in alto 
a sinistra del rettangolo di dimensioni 
a,b e un numero c rappresentante l'attri¬ 
buto da ottenere, possiamo far sì che 
dalle coordinate x,y appaia una "fine¬ 
stra" di dimensioni a,b di “colore" c 
(colore inteso come attributo). 

Nel programma i valori di a e b sono 
costanti (a = 4,b = 4) e rappresentano il 
7° e l'8° dato nella linea di Data del 
caricatore BASIC. 

I valori di x e y variano a seconda della 
riga e della colonna della faccia a cui si 
è giunti (si notino i cicli For-Next di linea 
6000) e rappresentano il 4° e il 5° dato 
nella linea di Data del caricatore BASIC. 

Il valore di c varia a seconda del valore 
di A (schermo,riga,colonna) e rappre¬ 
senta il 2° valore nella linea di Data del 
caricatore BASIC. 

Per utilizzare la routine al di fuori di 
questo programma bisogna dunque fa¬ 
re: 

POKE ORG + I.c 
POKE ORG + 3.X 
POKE ORG + 4,y 
POKE ORG I 6,a 
POKE ORG + 7,b 

dove ORG = inizio routine. Ricordarsi di 
dare Clear ORG-1. 

La routine va in esecuzione con Rando- 
mize Usr ORG.Let variabile = Usr.ORG, 
Print Usr ORG. 


Suddivisione in blocchi 

0-199 - Inizializzazione variabili. In parti¬ 
colare uso delle istruzioni Read, Data, 
Restore per riempire l’array B. 

200-350 - Parte grafica. Viene disegnato 
lo scheletro del cubo, il piccolo cubo 
tridimensionale in basso a sinistra, ven¬ 
gono stampate le lettere e le frecce ri¬ 
spettive. 

350-360 - Input del livello (tramite la In- 
key), ancora parte grafica che mostra il 
progressivo mischiamento sullo scher¬ 
mo. 

400-500 - Viene suonata un'allegra mu¬ 
sichetta in attesa che venga premuto 
Enter. La variabile “ma”è di servizio e 
serve per evitare un altro Goto inutile. 
500-600 - Controlla il tasto premuto. Sal¬ 
ta alla relativa subroutine fornendo co¬ 
me parametri Numero, Verso. Se è pre¬ 
muto Enter salta a 3000. 

1000 - Routine che fa scorrere i dati 
verso l'alto o verso il basso, 

1100 - Routine che fa scorrere i dati 
verso destra o verso sinistra. Queste due 
ultime routine sono molto simili; si diffe¬ 
renziano per un uso differente di Nume¬ 
ro. 

2000 - Routine per cambiare lo schermo. 
È chiamata dalle linee 500-600. 

3000 - Routine per controllare se si è 
completato il cubo. In caso negativo 
salta a 4000. 

3200 - Congratulazioni per il successo 
del gioco. 

4000 - Viene chiamata se non si è com¬ 
pletato il cubo. Ritorna a 500 se si vuole 
continuare. Ritorna all’inizio se si vuole 
ricominciare. 

6000 - Chiamata dalle routine 1000, 

1100 e 2000, lancia la routine in linguag¬ 
gio macchina, effettuando le opportune 
Poke. La routine è allocata a 65000, ma 
è completamente rilocabile. ■ 


Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 

Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G 8008 SE/1005/1010/1030 



51 


























I 




Un programma per disegnare 
e stampare in alta risoluzione 


di Sergio Borsari 


N el n. 14 di Personal Software 

- Gennaio 1984 - apparve un 
articolo intitolato Grafici ad 
alta risoluzione con il 
TI99/4A. Seguirono molte telefonate di 
lettori che non riuscivano a far "girare" 
il programma che, nonostante tutto, 
funzionava benissimo. Speriamo che 
tutti, prima o poi, siano riusciti ad indivi¬ 
duare gli errori di trascrizione. I controlli, 
a volte, sono veramente estenuanti. 
Supponiamo che ormai sia nota a tutti 
la tecnica per ottenere l'alta risoluzione. 

I caratteri del TI99/4A sono facilmente 
ridefinibili con l'istruzione Char; così, al¬ 
meno in teoria, si può controllare il video 
pixel per pixel. Diciamo in teoria perché il 
set di caratteri, da solo, non è sufficiente 
a coprire l'intero schermo. Secondo il 
tipo di BASIC usato, si dispone di 111 o 
127 caratteri, escludendo quello di codi¬ 
ce ASCII 32 che è lo space, mentre il 
video possiede 32 x 24 = 768 locazioni, è 


un peccato che nel TI BASIC manchino 
le istruzioni per gestire la grafica in bit- 
map, tanto più se si considera che i 
nuovi computer dello standard MSX u- 
sano lo stesso microprocessore della 
Texas Instruments per il controllo del 
video e possiedono tutte le più comuni 
istruzioni grafiche, come Pset. Line, Cir- 


cle, Paint, ecc. 

Nel precedente programma di Gennaio, 
solo apparentemente il grafico di una 
funzione occupava l'intero video; in 
realtà la maggior parte della superficie 
era costituita da Space. Nel caso di un 
grafico più “denso”, utilizzati i caratteri 
disponibili, l'elaborazione si sarebbe in- 


Llstato 1 - Il programma Hl-Rec ogni figura presenta un listato che 
indica II sottoprogramma utente da Inserire nel blocco principale. 


100 REM *****##**♦*♦****#♦ 


110 REM # * 
120 REM * HI-RES * 
130 REM # * 
140 REM ***#*#*##*#####*## 
150 REM * * 
160 REM * COPYRIGHT 19(34 * 
170 REM # * 
180 REM * BY S.BORSANI * 
190 REM # # 
200 REM *#****#*##**•***#■** 
210 REM * * 
220 REM * TI-99/4A * 
230 REM * * 
240 REM * VERSIONE * 
250 REM * * 
260 REM * EXTENDED BASIC * 
270 REM * * 


280 REM ****#*#*■»*#*#**#** 

290 GOTO 390 

300 CALL CLEAR : : CALL CHAR : : CALL HCHA 
R :: CALL VCHAR :: DIM S*(15,4),E*(15,4) 
,M*<100) 

310 DATA 0,4,2,1,9,5,3,1,A,6,2,3,B, 7, 3,3 

, C, 4, 6, 5, D, 5, 7,5, E, 6, 6, 7, F, 7,7,7 

320 DATA 8,C,A,9,9,D,B,9,A,E,A,B,B,F,B,B 

,C,C,E,D,D,D,F,D,E,E,E,F,F,F,F,F 

330 DATA 0,0,0,0,1,1,1,0,2,2,0,2,3,3,1,2 

,4,0,4,4,5,1,3,4,6,2,4,6,7,3,5,6 

340 DATA 0,8,8,0, 1,9,9,8,2, A, 8, A, 3, B, 9, A 

,4,8,C„C,5,9,D,C,6,A,C,E,7,B,D,E 



350 J,K,FINE,N,CTR,MODO,X,Y,X1,Y1,S,XK,Y 
K, 0, CO, RO, NC, LN, BI, F'0, POX, A, NT, T, NUMCAR= 
LOOP 

360 NAME*,RECORD*,SC*,W*,Al*,DNi,FN*=" " 
: : CALL CHARSET : : CALL COLOR : : CALL K 
EY : : CALL GCHAR : : CALL CHARF'AT 
370 CALL LOCATE :: CALL SPRITE :: CALL D 
ELSF'RITE 
380 !@P- 

390 FOR J=0 TO 15 :: FOR K=1 TO 4 : : REA 
D S*<J,K)s: NEXT K :: NEXT J 
400 FOR J=--0 TO 15 :: FOR K=1 TO 4 :: REA 
D E* < J,K): : NEXT K :: NEXT J :: GOTO 440 
410 CALL CHAR<33,"OOOOOOOOOOOOOOFF"): : C 
ALL CHAR<34,"0101010101010101") 

420 CALL CHAR<35,"8080808080808080"): : C 
ALL CHAR<36,"FF"): : CALL CHAR<37,"3C4299 
AlA199423C") 

430 CALL CHAR<38,"FF818181818181FF”): : C 
ALL CHAR<39,"806070381C0E0702">: : RETURN 
440 CALL CHAR<140,"0042241818244200"): : 
CALL CHAR <141,"007C42427C4442") 

450 CALL CHAR <142,"00183C7E181818"): : CA 
LL CHAR<143,"001818187E3C1800") 

460 FOR J=1 TO 100 :: M*<J)=RPT*<"0",16) 

: : NEXT J : : FINE=17 

470 CALL CLEAR : : CALL CHARSET : : GOSUB 
410 :: FOR J=2 TO 14 :: CALL COLOR<J,2,1 
): : NEXT J 

480 DISPLAY AT<2,7):"H I - R E S" : 

: DISPLAY AT<4,2):"COPYRIGHT ";CHR*(37); 
"1984 S. BORSANI" 

490 CALL HCHAR<1,3,36,28): : CALL VCHAR<1 
,2,34,5):: CALL VCHAR<1,31,35,5): : CALL 
HCHAR(5,3,33,28) 
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terrotta. Un modo per ovviare a questo 
inconveniente consiste nel definire una 
finestra grafica tale da essere compieta- 
mente occupata da caratteri ridefinibili, 
potendo così disporre a piacimento di 
tutti i pixel in essa contenuti. 

Il programma presentato utilizza, ap¬ 
punto, una finestra grafica di 10 x 10 
caratteri ovvero di 80 x 80 pixel. In essa 
si creano immagini o con l'aiuto della 
tastiera o con un sottoprogramma scrit¬ 
to dall'utente. 

Si possono anche memorizzare le im¬ 
magini in un file residente su nastro o su 
disco, richiamare in memoria vecchi di¬ 
segni per eventuali modifiche ed infine 
stampare il disegno su carta. Il pro¬ 
gramma, insomma, si comporta come 
un semplice editor di immagini. La con¬ 
figurazione minima, richiede solo il BA¬ 
SIC esteso; la stampante non è indi¬ 
spensabile, in sua assenza ci si può 
accontentare dell'output sul video. 


Come si utilizza il programma 

Il menu consiste nelle seguenti opzioni: 
Load, Draw, Save. Print, Erase e Files. 
Come suggeriscono i termini stessi, la 
prima carica in memoria un file nel qua¬ 
le é memorizzato un disegno preceden¬ 
temente registrato con l'opzione Save; 
la seconda fa apparire la finestra grafi¬ 
ca sulla quale viene realizzato il dise¬ 
gno; la terza registra un file contenente i 
pattern dei caratteri che formano il dise¬ 
gno; la quarta produce una copia su 
carta; la quinta azzera la matrice ado¬ 
perata per memorizzare il disegno; la 
sesta, infine, funzionante solo con un 
sistema a dischi, mostra i nomi dei file 
presenti sul dischetto. 

Per eseguire un disegno, si seleziona 
l'opzione 2 del menu. Appare la finestra 
grafica, un cursore a forma di matita e 
quattro simboli nella parte bassa del 
video. Il loro significato, nell’ordine, è: 


Pen Down (la penna scrive), Pen Up (la 
penna si sposta senza scrivere), Erase 
(la penna cancella), Return (si torna al 
menu). Il simbolo attivo è racchiuso da 
una cornice rossa ed inizialmente tale 
sorte tocca a Pen Up. Se esiste un sotto¬ 
programma scritto dall’utente, questo 
viene eseguito subito, prima di poter di¬ 
segnare con la tastiera. Si parlerà più 
avanti di questa possibilità. Per iniziare il 
disegno bisogna conoscere alcuni co¬ 
mandi fondamentali. Il cursore grafico a 
forma di matita si può trovare aH’interno 
o all'esterno della finestra; il movimento 
nei due sensi avviene alla pressione del 
tasto Enter. Quando il cursore si trova 
all’esterno della finestra i tasti con le 
frecce <S> e <D> attivano una fun¬ 
zione operativa spostando la cornice 
sul simbolo corrispondente, quando in¬ 
vece il cursore si trova aN'interno, otto 
tasti provvedono al suo movimento nelle 
direzioni principali e lungo le diagonali. 


500 DISPLAY AT(8,4):"1 LOAD" :: DISPLAY 
AT <IO,4):"2 DRAW" :: DISPLAY AT(12,4):"3 
SAVE" 

510 DISPLAY AT(14,4):"4 PRINT" :: DISPLA 
Y AT(16,4):"5 ERASE" :: DISPLAY AT(I8,4> 
:"6 FILES" 

520 DISPLAY AT(20,IO):"SCELTA?" :: ACCEP 
T AT (20, 18).BI ZE ( 1 ) VAL I DATE ( " 1.23456" ) : SC* 
530 ON ERROR 1350 :: N=VAL(SC*):: CALL H 
CHAR(6+2*N,4,38): : ON N GOTO 540,5B0,107 
0,1110,1170,1200 

540 GOSUB 1420 :: IF NAME*="CS1" THEN CA 
LL CLEAR 

550 OPEN #1:NAME»,SEGUENTIAL,INPUT ,DISP 
LAY ,FIXED 80 

560 FOR J=1 TO 20 :: INPUT #1:RECORD* :: 

FOR K=1 TO 5 :: M*((J-l)#5+K)=SEG*(RECO 
RD*, (K-1>*16+1,16): : NEXT K :: NEXT J 
570 CLOSE #1 :: IF NAME*="CS1" THEN 470 
ELSE GOSUB 1410 :: GOTO 520 
580 CALL CLEAR :: GOSUB 1490 :: FOR J=2 
TO 14 :: CALL COLOR(J,2,16): : NEXT J :: 
CTR=-1 

590 FOR J=8 TO 17 :: FOR K=12 TO 21 :: C 
TR-CTR+l :: CALL HCHAR(J,K,40+CTR): : NEX 
T K : : NEXT J : : CALL UTENTE 
600 M0D0=2 :: X=127 :: Y=97 :: X1=113 :: 

Y1=169 :: GOSUB 1360 :: GOTO 860 
610 CALL KEY(O,K,S):s IF S-0 TI ICN 610 
620 IF K=I3 THEN 860 

630 IF K=69 THEN XK=0 :: YK=1 :: GOTO 71 
0 

640 IF K=82 THEN XK,YK=1 :: GOTO 710 
650 IF K=68 THEN XK=1 :: YK=0 :: GOTO 71 
0 


660 IF K=67 THEN XK=1 
10 

670 IF K=88 THEN XK=0 
10 

680 IF K=90 THEN XK,YK=-1 :: GOTO 710 
690 IF K=B3 THEN XK=-1 :: YK=0 :: GOTO 
10 
700 


IF K=87 THEN XK=-1 


YK=-1 :: GOTO 7 


YK=—1 :: GOTO 7 


YK=1 ELSE 610 


710 GNY-YK :: IF Gl >56 AND GK137 THEN Y=Q 
720 Q=X+XK :: IF Q>88 AND GK167 THEN X=Q 
730 IF M0DQ=2 THEN 840 

740 CO=INT((X-l)/8)+1 :: RO=INT((Y-l)/8) 


+ 1 

750 CALL GCHAR(RO,CO,NC): : CALL CHARPAT( 

NC.Al*):: LN=Y—INT((RO-1)*8): : BI = X-INT( 

(X-l)/4)*4 :: PO=INT((X-l)/4)+1 

760 IF F'0/2=INT <F'0/2> THEN P0X=LN*2 ELSE 

P0X=LN*2-1 


770 W*=SEG*(Al *,POX,1): : IF W*="F" AND M 
0D0=1 THEN 840 

780 IF W*="0" AND M0D0=3 THEN 840 

790 A=A3C(W*>: : IF A>60 THEN NT=A-55 ELS 

E NT=A-48 

800 IF MQD0=1 THEN W*=S*(NT,BI)ELSE W*=E 
*(NT,BI) 

810 IF P0X=1 THEN Al*=W*S-.SEG* (Al*, 2, 15) : 

: GOTO 840 

820 IF F0X=16 THEN Al*=SEG*(Al*,1,15)&W* 
: : GOTO 840 

830 A1*=SEG*(Al*,1,POX-1)&WS&SEG*(Al*,PO 
X+l,16-POX) 

840 CALL LOCATE(#1,Y,X>:: IF M0D0=2 THEN 
610 

850 CALL CHAR(NC,Al*): : GOTO 610 

860 CALL LOCATE(#1,145, 140): : FOR T=1 TO 






Come è ovvio, in queste applicazioni i 
tasti sono quelli con le frecce ed i loro 
vicini: E = alto, X = basso, S = sinistra, 
D = destra, R = alto-destra, C = basso¬ 
destra, Z = basso-sinistra, W = alto-sini¬ 
stra. É stato previsto l'uso esclusivo del¬ 
la tastiera poiché i joystick, che teorica¬ 
mente sembravano possedere le carte 
migliori, all'atto pratico si sono rivelati 
poco sensibili agli spostamenti in diago¬ 
nale. 

Un disegno, generalmente richiede un 
frequente cambio di funzioni, ma con un 
po' di pratica non è difficile controllare il 
movimento del cursore grafico, farlo u- 
scire dalla finestra con il tasto Enter, 
cambiare la funzione e tornare nello 
stesso punto con il cursore per ripren¬ 
dere il disegno. 

Quando il lavoro è terminato, per tor¬ 
nare al menu, bisogna attivare il simbolo 
R sulla destra e attendere brevemente 
perché il computer memorizzi le stringhe 
esadecimali che definiscono i caratteri, 
prima che essi assumano nuovamente il 
loro aspetto abituale. Dopo questa fase 
appare una linea alla base della fine¬ 
stra; la linea può essere spostata con i 
tasti Fctn E e Fctn X rispettivamente 
verso l'alto e verso il basso. Lo scopo è 
quello di "tagliare" la finestra riducen¬ 
do in tal modo la superficie da stampa¬ 


re. Chi invece desidera stampare tutta la 
finestra o non intende affatto eseguire 
la stampa, premerà semplicemente il ta¬ 
sto Enter, tornando cosi al menu princi¬ 
pale. La precedente operazione per li¬ 
mitare la superficie da stampare si ren¬ 
de necessaria per la relativa lentezza 
con la quale viene eseguita la copia su 
carta. Se il disegno non occupa tutta la 
finestra e si è avuta l'accortezza di rea¬ 
lizzarlo nella parte alta, un "taglio" farà 
risparmiare in seguito del tempo prezio¬ 
so impedendo la stampa di inutili carat¬ 
teri vuoti. 

Il sottoprogramma utente 

Una parte interessante del programma 
è certamente quella rivolta al sottopro¬ 
gramma che l'utente può scrivere e inse¬ 
rire nel listato, dopo la linea 2100, non 
dimenticando di terminare con l'istru¬ 
zione Subend. Per facilitare la program¬ 
mazione sono state create tre nuove 
istruzioni grafiche con altrettanti sotto¬ 
programmi BASIC. Esse sono: Pset per 
segnare un punto; Line per tracciare 
una linea e Circle per tracciare cerchi ed 
ellissi. Queste nuove istruzioni, come 
tutti i sottoprogrammi, vengono chia¬ 
mate con delle Cali rispettando una pre¬ 
cisa sintassi. 


Cali Pset (x,y) attiva un pixel della fine¬ 
stra grafica colorandolo di nero. L'origi¬ 
ne del sistema di riferimento è posto 
nell'angolo in basso a sinistra ed i punti 
sono numerati dallo 0 al 79.1 valori ester¬ 
ni a tale intervallo non provocano alcun 
errore, ma vengono semplicemente i- 
gnorati. 

Cali Line (xl, yl, x2, y2) traccia una 
linea dal punto di coordinate xl, yl al 
punto di coordinate x2, y2. Se entrambi i 
punti cadono all'esterno della finestra 
l'istruzione viene ignorata, se invece u- 
no solo degli estremi è esterno, allora 
viene tracciato solo il segmento che 

Figura 2 - A causa della diversa distanza del 
punti che (ormano l'Immagine nelle due 
direzioni, verticale ed orizzontale, una 
circonferenza, calcolata matematicamente, 
appare come un'ellisse. Una diversa 
deformazione si ha In fase di stampa per la 
diversa distanza degli aghi della testina della 
stampante. 

La figura mostra la riproduzione di un cerchio 
che appariva tale sul video, ottenuto con 
un'eccentricità uguale a 1,38. 



rientra nella finestra grafica. 

Cali Circle (xO, yO, r, e) traccia un cer¬ 
chio di centro xO, yO, di raggio r e di 
eccentricità e. Anche qui esiste la fun¬ 
zione di “clipping" per tracciare ugual¬ 
mente la curva qualora una parte do¬ 
vesse cadere all'esterno della finestra. 
Per quanto riguarda l'eccentricità, da 
un punto di vista geometrico, il valore 1 
corrisponde ad una circonferenza, va¬ 
lori diversi da 1 ad ellissi. In realtà i punti 
che formano il video non sono equidi¬ 
stanti nelle due direzioni, orizzontale e 
verticale, con il risultato che un'eccentri¬ 
cità uguale a 1 fa apparire un'ellisse. Un 


N 



2070 REM 
2080 REM 


2050 REM ******#**#*#*###*#*#**### 

2060 REM * * 

* SOTTOPROGRAMMA UTENTE * 

* GLOBO * 

2090 REM ##■**»****#*#*##**#***#**# 

2100 SUB UTENTE 

2110 CALL CIRCLE(39,39,30,1: CALL LINE 
(39,9,39,69):: CALL CIRCLE(39,39,30,.3) 
2120 FOR J=1.2 TO .3 STEP -.3 :: R=INT(S 
IN(J)*30): : E=30/R :: CALL CIRCLE(39,39, 
(R), (E)): : NEXT J 
2130 SIJBEND 


Figura 1 • Immagine 
di un globo creala 
con un 

sottoprogramma che 
utilizza le nuove 
Istruzioni Line e 
Circle. Le lettere N e 
S sono state aggiunte 
controllando con la 
tastiera II cursore 
grafico. 


54 















Hi-Res 


TEXAS TI99/4A 


valore di 1,39 dà buoni risultati sullo 
schermo, facendo apparire un cerchio; 
purtroppo in fase di stampa, a causa 
della diversa conformazione della ma¬ 
trice dei punti, si ottiene nuovamente 
un'ellisse, anche se non molto eccentri¬ 
ca. In ogni caso, mancando un valore di 
default, bisogna indicare il valore che si 
ritiene più opportuno. 

La figura 2 mostra appunto un cerchio 
che appariva veramente tale sul video; 
durante la stampa ha subito una legge¬ 
ra deformazione. 

Le figure 3 e 4 mostrano immagini otte¬ 
nute con altrettanti sottoprogrammi u¬ 


sando istruzioni Line e Circle, completa¬ 
te poi tramite la tastiera. 

La stampa 

Per quanto riguarda la stampa, è ne¬ 
cessario conoscere alcune caratteristi¬ 
che della stampante. Al momento del¬ 
l’acquisto la testina di stampa è regola¬ 
ta dalla fabbrica in modo da lavorare 
con 7 aghi di stampa. Tuttavia, per poter 
sfruttare pienamente le sue capacità 
grafiche è necessario tarare in posizio¬ 
ne Off l'interruttore dip SW2-1 posto sul 
quadro dell'Interfaccia seriale. L'opera- 
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.1.O.,..teisisfimn».,-.. 

2050 

REM 

#************#####***##*# 

2060 

REM 

* * 

2070 

REM 

* SOTTOPRQGRAMMA UTENTE « 

2080 

REM 

* INVILUPPO DI RETTE * 

2090 

REM 

**#***##*##*#**###****##* 

2100 

SUB 

UTENTE 

2110 

X1=0 

:: Y1=79 :: X2=0 :: Y2=0 

2120 

CALL 

LINE ( (XI), (Yl), ( X2>, (Y2)) 

2130 

FOR 

J = 1 TO 10 : : Y1=Y1~8 :: X2=X2+8 

: ; CALL 

LINE((XI), (Yl), (X2>, (Y2)): : NEX 

T J 



2140 

SUBEND 


Flgura 3 • Inviluppo di 
rette ottenuto con un 
ciclo For-Next nel 
quale viene chiamato 
Il sottoprogramma 
Sub Line. Il testo è 
stato Inserito 
controllando II 
cursore grafico con 
la tastiera. Infatti, 
creando una finestra 
in bit map non si 
dispone più del 
normale set di 
caratteri 
alfanumerici. 


ra¬ 


zione è semplice, e per eseguirla basta 
seguire le istruzioni contenute nel ma¬ 
nuale. Se non sono state apportate altre 
modifiche alla taratura degli interruttori 
dip della stampante, tutto funzionerà 
regolarmente. Spesso, tuttavia, viene 
cambiata la velocità di trasmissione dati 
che la Casa ha fissato a 300 baud. Con 
velocità diverse l'utente deve modificare 
la linea 1880 del programma, contenen¬ 
te l’istruzione Open #4: “RS232.CR.DA 
= 8", per adattarla alle proprie necessi¬ 
tà. 

Come si ottiene 
l’indirizzamento indipendente 
dei punti? 

Prima di terminare, merita una breve 
spiegazione il modo in cui viene messo 
in On un pixel della finestra grafica. 

I punti del video non sono indirizzabili 
indipendentemente poiché la memoria 
è organizzata in modo da contenere, da 
un lato, i numeri dei caratteri presenti in 
ciascuna locazione dello schermo, dal¬ 
l’altro la forma dei caratteri stessi, codifi¬ 
cata, a livello utente, con stringhe di 16 
caratteri esadecimali. In pratica, per 
mettere in On un pixel, bisogna ridefinire 
il carattere al quale appartiene. Se os¬ 
serviamo le linee del programma a parti¬ 
re dalla numero 740, per prima cosa 
vengono trovati i numeri di colonna e di 
riga (CO e RO) della locazione dove si 
trova il cursore. Il numero di codice A- 
SCII del carattere (NC) viene ricavato 
con l'istruzione Cali Gchar mentre la 
successiva Cali Chrpat resistuisce il pat¬ 
tern del carattere, cioè la stringa di ca¬ 
ratteri esadecimali (Al$) ognuno dei 
quali controlla un semibyte in memoria, 


Figura 4 - Esemplo di 
grafico di funzione. 


2050 R'EM #****##*#**■*****#*■*#*#■*** 

2060 REM * * F U M Z i O M !:f: S I N 


2070 REM * SOTTOPROGRAMMA UTENTE * 

2080 REM * FUNZIONE SIN * 

2090 REM *#****###****#*#**#*###** 

2100 SUB UTENTE 

2110 CALL LINE(0,39,79,39): : CALL LINE(3 

1,_ 

A 

•fi- 

A 

l .Ve. 
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/.V 

9,0,39,79) 


f Y 

| | 
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2120 Y1 = INT(SIN(-39/4)*20+39): : FOR X=0 

TO 79 : : Y2=INT(SIN((X—39)/4)*20+39) 

2130 CALL LINE((X), (Yl), (X), <Y2)): : Y1=Y 

2 : : NEXT X 

\j 

... Il 

\J 

„..| \J 


2140 SUEiEND 

















ovvero una sequenza di 4 pixel. Indivi¬ 
duato il semibyte, si tratta di modificare 
un bit lasciando inalterati gli altri tre. A 
questo punto si presenta un’alternativa: 
passare dalla notazione esadecimale a 
quella decimale, usare gli operatori 
booleani e poi tornare nuovamente 
all'esadecimale, oppure creare delle ta¬ 
belle di composizione (una sorta di ta¬ 
vole pitagoriche) per operare diretta- 
mente con caratteri esadecimali. Nel 
programma è stata adottata questa se¬ 
conda soluzione. Le tabelle sono conte¬ 
nute nelle matrici S$() e E$() e servono 
rispettivamente per mettere in On o in 
Off un bit e conseguentemente un pixel 
del video. Individuta la posizione del ca¬ 
rattere esadecimale nella stringa (POX), 
il suo valore decimale corrisponde ad 
una riga della tabella, mentre il numero 
del bit (Bl) aH'interno del semibyte, corri¬ 
sponde ad una colonna della tabella. 
L’elemento S$(NT,BI) restituisce il nuo¬ 


vo carattere esadecimale che codifica il 
semibyte modificato. Ricostruita infine 
la stringa che costituisce il pattern del 
carattere, apparirà un nuovo punto sul¬ 
lo schermo. 

Descrizione del listato 

300-380 - Elenco delle variabili per il pre- 
scan. È questa una tecnica per abbre¬ 
viare il tempo d’attesa all'inizio del pro¬ 
gramma. 

390-400 - Caricamento delle tabelle per 
effettuare operazioni logiche, in esade¬ 
cimale, tra bit e semibyte corrispondenti. 
In pratica tali tabelle serviranno per por¬ 
re in On o in Off un pixel della finestra 
grafica. 

410-460 - Definizione di alcuni caratteri. 
Poiché la parte grafica del programma 
assorbe tutti i caratteri disponibili, per 
poter riporre il menu, è necessario ridefi¬ 
nire alcuni caratteri. 


470-530 - Menu. La linea 470 ristabilisce 
il normale set di caratteri alfanumerici. 
540-570 - Eseguono il comando Load. 
La Gosub di linea 540 chiede il nome del 
file. 

580-590 - In esecuzione del comando 
Draw, appare la finestra grafica e ven¬ 
gono ridefiniti i caratteri (subroutine 
1490) per far apparire il disegno attual¬ 
mente in memoria e conservato nel vet¬ 
tore M$(). Prima di proseguire viene lan¬ 
ciato il sottoprogramma Sub Utente. Se 
questo non contiene istruzioni si passa 
all'esecuzione del disegno sotto il con¬ 
trollo della tastiera. 

600 - Chiama una subroutine per far 
apparire i simboli per selezionare le mo¬ 
dalità grafiche ed il cursore a forma di 
penna. 

610-700 - Controllo della tastiera per il 
movimento del cursore. 

710-850 - Eseguono le varie operazioni 
grafiche secondo la funzione prescelta. 


Seguito programma Hl-Rea 

50 : : NEXT T 

870 CALL KEY<0,K,S):s IF S=0 THEN 870 
880 IF K=13 THEN 950 

890 IF K=68 AND M0DCX4 THEN MODO=MODO+l 
s : GOTO 910 

900 IF K=B3 AMD M0D0>1 THEN MODO=MODO-l 
:: BOTO 9t0 ELSE 870 

910 IF MODO=l THEN Xl=97 s: GOTO 940 
920 IF MODO=2 THEN X1=113 :: GOTO 940 
930 IF M0D0=3 THEN X1=129 ELSE X1=153 
940 CALL LOCATE(#2,Y1,X1): : GOTO 860 
950 IF M0D0O4 THEN 730 

960 FCIR J=1 TO 100 :: CALL CHARPAT < J+39, 
Al*):: M* < J)=A1* :: NEXT J 
970 CALL DELSPRITE(ALL) 

980 CALL HCHAR(18,12,36,IO): : R0=18 
990 CALL KEY <0,K,S>: : IF S=0 THEN 990 
1000 IF K=13 THEN FINE=R0-1 :: GOTO 470 
1010 IF K=11 AND R0>9 THEN 1040 
1020 IF K=10 AND R0C18 THEN 1050 
1030 GOTO 990 

1040 CALL HCHARtRO,12,32,IO): : RO=RO-l : 
: CALL HCHARCRO,12,36,10): : GOTO 990 
1050 FOR J = 1 TO IO :: NUMCAR=<R0-8)* 10+3 
9 :: CALL HCHAR<RO,11+J,NUMCAR+J): : NEXT 
J 

1060 R0=R0+1 :: CALL HCHAR<RO,12,36.IO): 

: GOTO 990 

1070 GOSUB 1420 :: IF NAME*="CS1" THEN C 
ALL CLEAR 

1080 OPEN #1 :NAME*,SEQUENTIAL,OUTPUT,DIS 
PLAY ,FIXED 80 

1090 FOR J=1 TO 20 :: REC0RD*="" :: FOR 


K=1 TO 5 : : RECORD*=RECORD*&M* <(J-l)*5+K 
):: NEXT K :: PRINT #1:RECORD* 

1100 NEXT J :: CLOSE #1 :: IF NAME*="CS1 
" THEN 470 ELSE GOSUB 1410 :: GOTO 520 
1110 DISPLAY AT<24,6):"CONFERMI? <Y/N)" 
:: ACCEPT AT<24,22iSIZE(1)VAL I DATE<"YN") 
e SC* 

1120 IF SC*="N" THEN GOSUB 1410 :: GOTO 

520 

1130 ON ERROR 1440 :: CALL CLEAR :: GOSU 
B 1490 :: FOR J=2 TO 14 :: CALL COLOR(J, 
2,16): : NEXT J : : CTR=-1 

1140 FOR J=B TO FINE :: FOR K=12 TO 21 : 

: CTR=CTR+1 :: CALL HCHAR<J,K,40+CTR): : 

NEXT K : : NEXT J 

1150 CALL COPY<8,FINE,12,21) 

1160 GOSUB 1410 :: GOTO 470 
1170 DISPLAY AT(24,6):"SEI SICURO? <Y/N) 
" :: ACCEPT AT <24,24)SIZE <1)VAL IDATE("YN 
">:SC* 

1180 IF SC*="N" THEN GOSUB 1410 :: GOTO 
520 

1190 FOR J = 1 TO 100 :: M* <J)=RPT* ( "0", 16 
):: NEXT J :: GOSUB 1410 :: GOTO 520 
1200 ON ERROR 1470 :: CALL CLEAR :: OPEN 
«3:"DSK1.", INPUT ,RELATIVE,INTERNAL :: 
CTR=0 

1210 INPUT #3:DN*,J,J,K :: PRINT "DISKNA 

ME=":DNS: "AVAILABLE=" 5 K! "IJSED": J-K 

1220 FOR LOOP=1 TO 127 :: INPUT #3:FN*,Y 

, J , K : : IF LEN<FM*)=0 THEN 1280 

1230 IF ABS <Y)=2 THEN PRINT FN*,: : CTR=C 

TR+1 

1240 IF CTR<40 THEN 1270 

1250 PRINT :"PRESS <ENTER> TO CONTINUE" 
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TEXAS TI99/4A 


In particolare, le linee 740-760 individua¬ 
no il carattere nel quale si trova il curso¬ 
re ed il semibyte nel quale si trova il bit 
da modificare. 

860-940 - Controllo della tastiera per la 
selezione di una funzione grafica (Pen 
Up, Pen Down, ecc.). 

950-960 - Il disegno viene memorizzato 
nel vettore M$. 

970-1060 - Si permette il “taglio" della 
finestra grafica in modo da impedire la 
stampa di Space con un’inutile perdita 
di tempo. 

1070-1100 - Esecuzione del comando 
Save con il quale viene memorizzato su 
nastro o su disco il vettore M$ contenen¬ 
te i pattern dei caratteri che, in prece¬ 
denza, formavano il disegno. 

1110-1160 - La sezione effettua l'hard 
copy su carta deH'immagine presente 
nella finestra grafica. A tal fine viene 
chiamato il sottoprogramma Sub Copy. 
Nella Cali, tra parentesi, vengono tra¬ 


smessi i numeri di riga e di colonna che 
delimitano la finestra grafica. 

1170-1190 - Azzeramento degli elementi 
dei vettore M$ e conseguentemente del 
disegno presente in memoria. 
1200-1340 - Lettura della directory per la 
lista dei file presenti sul dischetto ed 
eventuale cancellazione di un file. 

Subroutine 

1350 - Subroutine legata ad una On 
Error. Rimanda il programma al menu. 
1360-1400 - Fa apparire i simboli per 
selezionare le modalità grafiche ed il 
cursore a forma di penna. 

1410 - Cancella la parte inferiore del 
video. 

1420-1430 - Accetta il nome del file con¬ 
tenente un'immagine da memorizzare. 
1440-1460 - Subroutine per la gestione 
degli errori. 

1470-1480 - Messaggio conseguente 
all’uso del comando Files con il registra¬ 


tore a cassette. Tale opzione è consenti¬ 
ta solo con il sistema a dischi. 
1490-1500 - Ridefinisce i caratteri con i 
pattern memorizzati nel vettore M$. 

Sottoprogrammi 

1530-1670 - Sub Pset. Pone in On un 
pixel del video dopo aver individuato il 
carattere ed il semibyte corrispondenti. 
1680-1780 - Sub Line. Traccia una linea 
utilizzando il precedente sottoprogram¬ 
ma. 

1790-1860 - Sub Circle. Traccia un cer¬ 
chio. 

1870-2040 - Sub Copy. Esegue una co¬ 
pia su carta del disegno presente nella 
finestra grafica. La linea 1880 contiene 
la Open per l’interfaccia seriale. Si pre¬ 
suppone che la taratura degli interrutto¬ 
ri dip della stampante sia quella origina¬ 
le ad eccezione di quello che attiva pa¬ 
role di 8 bit (vedi articolo). 

2050-2110 - Sub Utente. Nel listato que- 


Segulto programma Hl-Res 

1260 CALL KEY(O,K,S): : IF S=0 THEN 1260 
ELSE FRINT :: CTR=0 
1270 NEXT LOOP 

1280 CLOSE #3 :: PRINT :"DETETE A FILE? 
(Y/N) N" :: ACCEPT AT(23,22)SIZE(-1)VALI 
DATE("YN"):SC* 

1290 IF SC*="N" THEN 470 
1300 PRINT : : PRINT : : PRINT 
1310 GOSUB 1420 :: DISPLAY AT<24,6):"SEI 
SICURO? <Y,N) N” 

1320 ACCEPT AT(24,24 >SIZE<-1)VALIDATE <"Y 
N">:SC$ :: IF SC$="N" THEN 470 
1330 OPEN #2: NAME*S, SEGUENTI AL, INPUT ,DIS 
PLAY ,FIXED 20 :: CLOSE #2:DELETE :: GOT 
O 470 
1340 END 

1350 CALL DELSPRITE(ALL) : : RETURN 470 
1360 CALL HCHAR<22,13,143): : CALL HCHAR( 
22,15,142):: CALL HCHAR <22, 17, 140) : : CAI. 
L HCHAR(22,20,141) 

1370 CALL HCHÀR(21,12,36,IO): : CALL HCHA 
R(23,12,33,IO) 

13Q0 CALL VCHAR(21,11,34,3): : CALL VCHAR 
(21,22,35,3) 

1390 CALL SPRITE(#1,39,7,145,140,0,0,#2, 
38,9,Y1,X1,0,0) 

1400 RETURN 

1410 CALL HCHAR(23,3,32,60): : CALL VCHAR 
(8,4,32,12):: RETURN 

1420 ON ERROR 1440 :: DISPLAY AT<23,1>:" 
FILE NANE?" :: ACCEPT AT(23,12)SIZE(15): 
NAME* 

1430 RETURN 


1440 DISPLAY AT<24,1):"* ERROR * PRESS < 
ENTER>" 

1450 CALL KEY(0,K,S): : IF S=0 THEN 1450 
1460 IF K=13 THEN GOSUB 1410 :: RETURN 5 
20 ELSE 1450 

1470 PRINT "ONLY FOR DISK SYSTEM!":" 
PRESS <ENTER> TO CONTINUE" 

1480 CALL KEY(0,K,S): : IF S=0 OR K<>13 T 
HEN 1480 ELSE RETURN 470 

1490 FOR J=40 TD 139 :: CALL CHAR(J,M*(J 

-39)): : NEXT J 

1500 RETURN 

1510 '@N- 

1520 END 

1530 SUB PSET(X,Y> 

1540 X = INT<X+.5): : Y=INT<Y+.5) 

1550 IF X<0 OR X>79 THEN SUBEXIT 
1560 IF Y<0 OR Y>79 THEN SUBEXIT 
1570 RQ=17-INT(Y/8): : C0=INT(X/8) + 12 :: 
CALL GCHAR(RO,CO,NC): : CALL CHARPAT(NC,P 
*> 

1580 LN= <INT(Y/8)+1> #8-Y :: BI = X-INT(X/4 
)*4 :: P0=INT(X/4)+l 

1590 IF F0/2=INT (F'0/2) THEN P0X=LN*2 ELSE 
P0X=LN*2-1 

1600 W«=SEG*(P$,P0X,1): : IF W*="F" THEN 
SUBEXIT 

1610 A=ASC(W$): : IF A>60 THEN DEC=A-55 E 
L.SE DEC=A-48 

1620 DEC=DEC OR 2~<3-BI):: IF DEC<10 THE 
N W$=STR$(DEC)ELSE W*=CHR*(DEC+55) 

1630 IF P0X=1 THEN P*=W*S-.SEG* (PS, 2, 15) : : 
GOTO 1660 

1640 IF P0X=16 THEN P*=SEG*<P*,1,15)&W* 

:: GOTO 1660 
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sto sottoprogramma non contiene alcu¬ 
na istruzione; per il buon funzionamen¬ 
to, la sua presenza è ugualmente neces¬ 
saria. 

Principali variabili 
del programma 

S$() - Tabella a due dimensioni per met¬ 
tere in On un bit di un semibyte espresso 
nella notazione esadecimale. 

E$() - Tabella simile alla precedente u- 
sata per mettere in Off un bit. 

M$() - Vettore usato per memorizzare i 
pattern dei caratteri quando questi de¬ 
vono essere resettati. 

NameS - Nome del dispositivo usato co¬ 
me memoria di massa (nastro o disco). 
RecordS - Record del file costituito dal 
pattern di 5 caratteri. Si ricorda che un 
pattern viene codificato con una stringa 
di 16 caratteri esadecimali. 


SCS - Scelta dell'utente al menu. 

WS, A1$ - Variabili di lavoro usate per 
ottenere la stringa di caratteri esadeci¬ 
mali che ridefiniscono un carattere do¬ 
po che è stato modificato mettendo in 
On un pixel. 

DN$ - Variabile utilizzata per leggere il 
nome del dischetto dalla directory. 

FNS - Variabile usata per leggere i nomi 
dei file dalla directory. 

J,K - Variabili di lavoro adoperate pre¬ 
valentemente nei cicli. 

Fine - Contiene il numero di riga del 
video che delimita la superficie da stam¬ 
pare. 

Modo - Assume i valori 1,2, 3 e 4, corri¬ 
spondenti ai quattro simboli posti al di 
sotto della finestra grafica. 

X, Y, XI, Y1 - Coordinate di un punto 
all'interno della finestra grafica. 

XK, YK - Assumono i valori -1,0, +1 per 
indicare lo spostamento relativo del cur¬ 


sore grafico. 

Q - Variabile di comodo per il calcolo di 
una nuova coordinata. 

CO,RO - Numero di colonna e numero 
di riga. 

NC - Numero di codice ASCII di un carat¬ 
tere. 

LN - Una delle otto linee di otto punti che 
formano un carattere nella quale si tro¬ 
va il cursore grafico. 

Bl - Bit, di un semibyte, che va posto in 
On. 

PO - Indica la posizione del semibyte 
specificando se è di sinistra o di destra. 
POX - Indica la posizione di un carattere 
esadecimale all'Interno della stringa 
che definisce un carattere. 

NT - Numero di un elemento delle tabelle 
contenute nelle matrici SS e E$. 

Numcar - Numero di un carattere pre¬ 
sente nella finestra grafica. ■ 


Seguilo programma Hl-Ree 

1650 P*=SEG*(F$, 1,P0X-1)&W*.*SEG*<P*,P0X + 
1,16-POX) 

1660 CALL CHAR <NC,P#) 

1670 SUBEND 

1680 SUB LINE(X1,Y1,X2,Y2) 

1690 IF X 1 = X2 THEN X=X1 :: GOTO 1760 
1700 IF X1>X2 THEN Q=X1 :: X1=X2 :: X2=0 
: : Q=Y1 : : Y1=Y2 : : Y2=Q 
1710 YO=Y1 :: CALL PSET(<X1),(Y1>) 

1720 FOR X=X1 TO X2 

1730 Y=INT((X—X1> x <Y2-Y1)/< X2-X1))+Y1 :: 
W=INT(Y-YO): : TF ABS(W)>1 THEN Y=YO+SGN 
(W): : FLAG=? 

1740 CALL PSET((X), <Y)> : : YO=Y :: IF FLA 
G=1 THEN FLAG=0 :: GOTO 1730 
1750 NEXT X :: SUBEXIT 

1760 IF Y1>Y2 THEN Q=Y1 :: Y1=Y2 :: Y2=Q 
1770 FOR Y=Y1 TQ Y2 :: CALL PSET(X,Y):: 
NEXT Y 
1780 SUBEND 

1790 SUB CIRCLE(XO,YO,R,E) 

1800 Y1=Y0+R*E :: CALL PSET(<XO),(Y1)) 
1810 FOR X=XO TD XO+R 

1820 Y=Y0+SQR (R#R- ( XO-X ) "'2) *E :: W=INT(Y 
~Y1)si IF ABS(W)>1 THEN Y=Y1+SGN(W): : FL 
AB=1 

1830 CALL PSET( < X > , <Y)): : CALL PSET(X,2* 
YO-Y):: CALL PSET(<2*X0-X>, (Y)>: : CALL P 
SET((2*X0-X),(2*YO-Y)) 

1840 Y1=Y :: IF FLAGRI THEN FLAG=0 :: GO 
TO 1820 
1850 NEXT X 
1860 SUBEND 

1870 SUB COPY(RI,R2,CI,C2) 


1880 OPEN #4:"RS232.CR.DA=8" :: PRINT #4 
: CHR*(27)j CHR*(65);CHR*(8); 

1890 FOR R=R1 TO R2 :: FOR C=C1 TO C2 :: 
CALL GCHAR(R,C,N): : CALL CHARPAT(N,W») 
1900 PRINT #4:CHR*(27)!"K"5CHR*(8);CHR* < 
0 ) ; 

1910 FOR K=3 TO 0 STEP -1 :: Q=0 :: FOR 
E=*l TO 15 STEP 2 

1920 D=ASC(SEG*(W*.E,1)): : IF D<60 THEN 
D=D-48 ELSE D=D-55 

1930 D=D AND 2'"K : : IF D THEN Q=Q+2^<7-I 
NT(E/2)> 

1940 NEXT E :: PRINT #4:CHR*<<3>; 

1950 NEXT K 

1960 FOR K=3 TO 0 STEP -1 :s Q=0 :: FOR 
E=2 TO 16 STEP 2 

1970 D=ASC<SEG*(W*,E,1)>: : IF D<60 THEN 
D=D-4B ELSE D=D-55 

1980 D=D AND 2^K :: IF D THEN Q=Q+2~<8-I 
NT <E/2)) 

1990 NEXT E :: PRINT #4:CHR*(Q); 

2000 NEXT K 

2010 NEXT C :: PRINT #4:CHR*(13)5CHR*<10 
> S 

2020 NEXT R 

2030 PRINT #4:CHR*(27):CHR*(65);CHR*(12) 

; : : CLOSE #4 
2040 SUBEND 

2050 REM ir************************ 

2060 REM # * 

2070 REM * SOTTOPROGRAMMA UTENTE * 

2080 REM * * 

2090 REM e**##*#***#*#***#*-*#***** 

2100 SUB UTENTE 
2110 SUBEND 
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f U. TUO T199/9A COM LA 




muova 


Dopo II successo ottenuto dalla prima 
proposta, ecco a disposizione del tuo TI-994/A 
un assortimento di altri splendidi programmi, tra I 
quali II richiestissimo EXTENDED 
BASIC; Il MODULO ADVENTURE.che 
ti permetterà di vivere appassionanti 
avventure e l’EDITOR/ASSEMBLER, 
indispensabile per il definitivo salto 
di qualità del tuo computer. 
Ordina subito, per essere sicuro 
di ricevere i programmi al più presto. 


OFfiRTA J.SOFT 




EXTENDED BASIC 

Cod. DTXNX01 - L. 270.000 


Finalmente disponibile il linguaggio di program¬ 
mazione compatibile con il BASIC TI-99/4A, con 
le seguenti aggiunte: righe multidichiarazioni, 
dichiarazioni IF-THEN-ELSE, accesso diretto al¬ 
lo schermo, sottoprogrammi BASIC con variabili 
locali, autoavviamento dei programmi su disco, 
facile controllo di fino a 28 sprite con concatena¬ 
mento programmi BASIC, fusione codici, pro¬ 
grammi protetti, dichiarazioni ON ERFtOR (Erro¬ 
re in atto) e funzioni logiche di Boole (AND, OR, 
NOT 1 E. O, NO, ecc.). 

Permette, con l'espansione della memoria, di 
programmare in linguaggio macchina. 


MODULO AVVENTURA 

Cod. DTXRX01 - L. 70.000 


Si tratta del modulo di comando, da inserire nella 
consolle, che funge da interprete del linguaggio 
delle cassette sottodescritte. 

Uno strumento indispensabile per arricchire la 
tua software-teca di nuove entusiasmanti avven¬ 
ture. 

Il modulo viene fornito con l’avventura “IL PIRA¬ 
TA". 

Configurazione richiesta: registratore a cassetta. 


Elenco delle "Avventure" che girano esclusivamente col MODULO AVVENTURA 


Nove programmi entusiasmanti, semplici da usa¬ 
re ma difficili da finire, 

AITinizio di ogni avventura viene proposta la si¬ 
tuazione in cui ci si trova e viene posta la doman¬ 
da: COSA DEVO FARE? Utilizzando gli oltre 200 
vocaboli previsti dal vocabolario del computer, 
darai gli ordini conseguenti, per trovarti in situa¬ 
zioni sempre diverse fino a realizzare lo scopo 
del gioco, ogni volta differente per ogni titolo. 
Avventure che stimolano la tua capacità di ragio¬ 
nare in modo logico e che richiedono ore, e an¬ 
che settimane, per concludersi. 

Mystery Fon House (La casa del Mistero) 

Cod. DTXMX17 - L. 30.000 

Prima di procedere all'esplorazione, devi medita¬ 
re su come fare per entrare nella Casa del Miste¬ 
ro. 

Una volta dentro, potrai vedere tutti gli angoli 
della casa, dove si nasconde un prezioso premio. 

Pyramld of Doom (La Piramide del Destino) 
Cod. DTXMX22 - L. 30.000 

L’avventura inizia in un deserto, nei pressi di uno 
stagno dal quale fuoriesce un palo. Grazie alle 
tue ricerche, troverai una piramide solo di recen¬ 
te scoperta dalle sabbie mobili. 

Cercherai l'ingresso, raccoglierai tesori e cer¬ 
cherai di fuggire dalla piramide. 


Inizia quando ti rendi conto di essere "naufraga¬ 
to" su un minuscolo pianeta e quindi devi ripara¬ 
re l'astronave per poter tornare a casa. 

Mentre cerchi I pezzi di ricambio sul pianeta, 
tenterai di scoprire i segreti di un'antica civiltà, 
raccogliendo i tesori in cui ti imbatterai lungo la 
strada. 

Adventureland 

Cod. DTXMX01 - L. 30.000 

Ti trovi all'inizio della foresta di un mondo di 
fiaba. Esplorandolo, potrai scoprire 13 diversi 
tesori come pure il luogo particolare dove riporli. 

Voodoo Castle (Castello del Voodoo) 

Cod. DTXMX32 - L. 30.000 

Sei all'interno di una cappella di fronte ad una 
bara chiusa. Esplorando il castello, cercherai di 
raccogliere le informazioni necessarie per libe¬ 
rare il Conte Cristo dalla terribile maledizione 
che i suoi nemici gli hanno fatto. 

Ghost Town (La Città Fantasma) 

Cod. DTXMXOà - L. 30.000 

Tutte le città fantasma sono misteriose, ma que¬ 
sta ha un fascino particolare: è abitata da fantas¬ 
mi veri ed è piena di tesori. 

Esplora tutti i vecchi edifici per vedere quanti ne 
riuscirai a trovare. 


Savage Island Series (Serie dell'Isola Selvaggia) 
Cod. DTXMX35 - L. 30.000 

L'avventura si divide in due parti ed inizia ai mar¬ 
gini di una giungla impenetrabile. Mentre esplori 
l'isola, incontrerai delle creature insolite. Dopo 
aver completato la prima parte, riceverai la paro¬ 
la d'ordine per iniziare la seconda parte, dove o 
diventerai il più grande eroe al mondo o andrai 
incontro a una fine rapida ed orribile. 

The Count (Il conte) 

Cod. DTXMX26 - L. 30.000 

Ti svegli da un pisolino e ti trovi in un letto con un 
paletto da tenda in mano. Sta a te scoprire chi sei, 
cosa stai facendo in Transilvania e perché il po¬ 
stino ha consegnato un flacone di sanguel 

The Golden Voyage 

Cod. DTXMX10 - L. 30.000 

Comincerai con l'individuare il palazzo reale nel¬ 
la città persiana. Nel palazzo incontrerai l'anzia¬ 
no re al quale rimangono solo tre giorni di vita, a 
meno che non riuscirai a ringiovanirlo. 
Portando soltanto una borsa d'oro, salperai in 
mare alla ricerca della mitica fontana della giovi¬ 
nezza. 


Strange Odyssey (Strana Odissea) 
Cod. DTXMX24 - L. 30.000 







I programmi seguenti sono Invece moduli Solld State Software, pronti da Inserire: 


Music Maker (Il compositore di Musica) 

Cod. DTXQX01 - L. 42.000 - con istruzioni in 
italiano 

Un ottimo programma sia per chi vuole avvici¬ 
narsi alla musica senza cognizioni di base, sia 
per chi deve studiare composizione direttamente 
sul programma e sia per chi utilizza il suono dal 
punto di vista tecnico ed ha interesse per tipo di 
frequenza, ecc.. Il programma prevede due op¬ 
zioni: scrittura di partiture sul pentagramma: in¬ 
serendo battuta per battuta è possibile scrivere 
partiture composte anche da tre voci e persino 
stamparne gli spartiti (in questo caso è necessa¬ 
ria una stampante e l'interfaccia RS232 o simila¬ 
re). L'altra opzione prevede la realizzazione delle 
melodie prendendo in esame gli Hertz di una 
singola nota. 


Game Wrlter's Pack 1 & 2 

Cod. DTXIX13 - L. 35 000 
(prezzo per le 2 confezioni) 

Un’ottima realizzazione didattica divisa in due 
parti autonome ma complementari che insegna i 
principi (e li approfondisce) della programma¬ 
zione BASIC, tramite la programmazione di vide¬ 
ogiochi. 


TI Invàderà (Invasori TI) 

Cod. DTXMX27 - L. 30.000 

Il mondo viene attaccato da numerose creature 
odiose provenienti dallo spazio. Devi fare affida¬ 
mento sulla tua agilità mentale e fisica per dis¬ 
truggere le creature multicolori con i missili a 
disposizione. 

Parsec 

Cod. DTXMX21 - L. 42.000 

PARSEC è la tua astronave, con la quale combat¬ 
terai gli alieni ribelli e le loro navicelle, buttando¬ 
le fuori rotta e emetterai un fuoco dal tuo laser 
che fa inaridire. Tenterai di sopravvivere alla 
"cintura" di asteroidi mortali. 

Per attivare le capacità sonore di questa cartuc¬ 
cia, puoi utilizzare lo Speech Synthesizer. 


E ora un'altra eccezionale proposta: 


Molto ben strutturata e comprensibile, utilizza un 
linguaggio semplice ed elementare. In ogni con¬ 
fezione è compresa una cassetta con i giochi di 
cui si parla nel corso della dissertazione. In totale 
6 giochi per confezione. 

La trattazione è basata sul TI-BASIC anche se 
non disdegna l’EXTENDED BASIC. 


e in fin e... 


Soccer (Gioco del Calcio) 

Cod. DTXMX23 - L. 37.000 

Inutile spendere troppe parole per questo ap- 
prezzatissimo programma. Cinque giocatori per 
squadra, con passaggi, tiri, intercettamenti, pa¬ 
rate, cariche e molte altre tattiche del calcio. 
Potete persino avere il replay immediato di una 
rete, al rallentatore. 

Car Wars (Guerre di Auto) 

Cod. DTXMX06 - L. 30.000 

Se ti emozionano le corse automobilistiche, ab¬ 
binate alla possibilità di battere l'avversario con 
astute manovre, ecco il programma che fa per te. 
Cimenta la tua velocità ed abilità contro il com¬ 
puter mentre cerchi di avanzare sul circuito, evi¬ 
tando incidenti che farebbe saltare il tuo bolide 
fuori pista. * 


Fun - Pac (1-2-3) 

Cod. DTXMX36 - L. 27.000 
(prezzo per 3 cassette) 

Tre cassette (non acquistabili separatamente), 
con 8 giochi complessivi ben strutturati ed avvin¬ 
centi. Dalla corsa dei cavalli al giocodel golf. Dal 
salvataggio di scienziati dalla contaminazione 
nucleare alla navicella Supernova, un ottimo gio¬ 
co "adventure" 


Edltor/Assembler 

Cod. DTXAX01 - L. 180.000 

L’eccezionale programma che ti permette di pro¬ 
grammare in linguaggio di programmazione 
TSM 9900 è dà accesso diretto a tutte le caratteri¬ 
stiche del sistema tra cui audio, voce, grafica ed 
I/O (Entrata/Uscita), oltre a mettere a disposizio¬ 
ne la massima rapidità grazie al microprocessore 
a 16 bit del computer. Le routine in linguaggio di 
programmazione possono essere svolte come 
programmi indipendenti oppure collegate a pro¬ 
grammi TI BASIC o TI BASIC ESTESO con l'im¬ 
piego di una chiamata di sottoroutine. Oltre al 
modulo SSS, il programma comprende due 


floppy-disk (uno dei quali contiene il gioco 
TOMBSTONE CITY) e il Manuale Utente che dà 
tutte le informazioni sulla composizione del soft¬ 
ware. 

L'EDITOR/ASSEMBLER richiede i seguenti op¬ 
tional: 

— Peripheral Expanslon Box 

Cod. ETX0X01 - L. 320.000 

— 32 K Expanslon Card 

Cod. ETXOX02 - L. 340.000 

— Drive Control Card 

Cod. ETXOX03 - L. 440.000 


— Floppy disk drive Box 

Cod. ETXOX04 - L. 480.000 


N. B. È possibile acquistare insieme gli optional 
ETXOX01 - ETXOX02 - ETXOX03 - ETXOX04, al 
prezzo complessivo di L. 1.250.000 anziché L. 
1.580.000. In questo caso, il codice da indicare 
per l'acquisto dei 4 pezzi è ETXOX05 


e, infine, freschi di stampa, escontatl del 10% sul prezzo di copertina: 


— Paper Book - TI-99/4A (con cassetta) - 
editore J.so/f 

Cod. ASOC007 - L. 16.200 


— 35 Programmi per II TI-99/A4 - 

editore MUZZIO 

Cod. AMUC024 - L, 9.000 


Una selezione dei migliori programmi tratti dal 
nostro settimanale PAPER SOFT, scelti accura¬ 
tamente sulla base della loro originalità e fanta¬ 
sia. 


Programmi divertenti e didattici, dal labirinto al 
tennis, dagli anagrammi alle conversioni metri¬ 
che e tanti altri ancora. 





A J.SOfT 


Spett. Jzott - Viale Restelll, 5 - 20124 Milano (MI) 

Tel. 02/6888228-683797-6880841/2/3/ 

Ordino il seguente softwaré/libri per il TI-99/4A: 

cod. cod. cod. 

cod... cod. cod. 

cod.. cod. cod. 

per un totale di L . 4- L. 2.500 per contributo fisso di spese di s 

Scelgo la seguente modalità di pagamento: 

D pagherò in contrassegno al postino 
□ allego assegno (o contanti) 

O verso l'importo sul C.C.P. n. 19445204 
intestato a J.soft (allego ricevuta) 

Nome. 

Cognome ..... 

Via .....n.. 

CAP...Città .Prov. 

































APPLE II 


I n tutte le situazioni in cui siano 
implicate più varibili, si può rende¬ 
re necessaria la semplificazione 
del modello, consistente nella eli¬ 
minazione di quelle che risultano ridon¬ 
danti ai fini descrittivi del campione o di 
una variabile di particolare interesse 
per il ricercatore. 

Generalmente si hanno due situazioni 
distinte: 

a) quella in cui si sia interessati ad una o 
più variabili particolari, funzioni di una 
batteria di altre variabili indipendenti; 
b) quella in cui non si privilegia alcuna 
delle variabili sulle altre, volendo sapere 
quali, fra tutte, contribuiscano maggior¬ 
mente alla descrizione della popolazio¬ 
ne da cui sono stati estratti i campioni, 
quali sono, cioè, le variabili più “variabi¬ 
li" delle altre. 

Un esempio ci può essere fornito da un 
sondaggio statistico ove si eseguano 
misurazioni su insiemi di variabili scelte 
arbitrariamente al fine di vedere se nella 
popolazione saggiata, esistono tipolo¬ 
gie particolari, suscettibili, mediante ul¬ 
teriori analisi, di individuazione. 

In questo caso non esistono variabili 
prioritarie, essendo nostro interesse in¬ 
dividuare una struttura (se esiste) sog¬ 
giacente, ma preventivamente ignorata, 
contrariamente al primo caso dove, in¬ 
vece si suppone esistere e si cerca con¬ 
ferma di una situazione. 

Nel primo caso si procederà, quindi in¬ 
duttivamente, mentre nel secondo de¬ 
duttivamente. 

Pur rispondendo ad esigenze diverse, è 
interessante notare come il primo meto¬ 
do si sia storicamente sviluppato prima 
dell’altro. Del resto la statistica nasce in 
casa delle scienze naturali e fisiche, in 
un secolo, quello scorso, in cui il positi¬ 
vismo supponeva tutto preesistente e 
disponibile all'indagine. 

Al più il problema era trovare i mezzi 
fisici e logici per accedere alla cono¬ 
scenza, cui attingere a piene mani. 

£ perciò comprensibile l'istintiva ten¬ 
denza all'utilizzo di indagini "indirizzati 
ai dati", supporto alle teorie dello speri¬ 
mentatore che li aveva rilevati. 

Più recente è, invece, la disponibilità 
all'indagine "indirizzata al modello", in 
cui si può compiere una indagine pre¬ 
ventiva, conoscitiva della realtà che in¬ 
teressa, con mente sgombra da even¬ 
tuali presupposti riduttivi. Certamente 
questa tendenza è dovuta anche all'af- 
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a più dimensioni 

Impariamo la statistica con l’aiuto 

del nostro Apple 

di Roberto Brunialti 


fermarsi dell'uso del calcolatore, che 
rende possibili analisi, spesso ben sup¬ 
portate dalla teoria, ma necessitanti di 
un gravoso lavoro di calcolo. 

Ma ritorniamo, dopo questa digressio¬ 
ne, all'argomento oggetto del presente 
articolo. 

Si faccia conto di aver compiuto misu¬ 
razioni su un certo numero (q) di varia¬ 
bili in n campioni. 

Vogliamo ridurre le variabili a p (p < q). 
in maniera che, nel caso di ulteriori rile¬ 
vamenti, si possa ridurre il lavoro di pre¬ 
levamento e di descrizione. 

Se siamo nella condizione di cui al 
precedente punto a) e ci interessa sa¬ 


pere, mettiamo il caso, la quantità di 
antiparassitario da usare in funzione 
della quantità di pioggia settimanale, 
della altezza della pianta, della quantità 
di concime data e della umidità media 
settimanale; volendo eliminare quante 
variabili sia possibile, senza peggiorare 
la capacità predittiva del modello, use¬ 
remo il noto metodo della ricerca dei 
parametri della funzione di regressione 
lineare. 

Regressione multipla, parziale 

Il medoto è noto, quindi saremo assai 
concisi nella descrizione del metodo, 


Tabella 1 - Dall 
ricavali dall'esempio 
1.2 del libro di 
Sadocchl, riportalo In 
bibliografia. Alle Ire 
variabili (x„ x 2 , e y), 
bisogna ricordarsi di 
aggiungere una 
prima colonna tutta di 
1, per ottenere II 
valore b,, 

conformemente alla 
notazione 
dell'algebra 
matriciale. 


Variabile 

“dummy” 

*1 

x 2 

Y 

1 

40 

9 

14 

1 

22 

15 

4 

1 

23 

18 

3 

1 

41 

11 

13 

1 

42 

17 

16 

1 

37 

8 

12 

1 

33 

8 

10 

1 

30 

12 

8 

1 

20 

13 

4 

1 

27 

3 

17 

1 

18 

15 

2 

1 

26 

5 

10 

1 

24 

7 

10 

1 

30 

4 

12 

1 

10 

10 

5 ' 

1 

8 

20 

2 

1 

38 

6 

9 

1 

10 

4 

3 

1 

4 

12 

1 

1 

17 

3 

5 
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soffermandoci di più sui parametri, sul 
significato dei coefficienti trovati e sulla 
scelta delle variabili esplicative da man¬ 
tenere o eliminare. 

Come noto si cerca una funzione del 
tipo: 

(1) y = b 2 x, + ... + b q x q + b, 

dove i parametri b, indicano di quanto, 
per un incremento unitario della varia¬ 
bile dipendente i-esima, viene incre¬ 
mentato il valore della variabile di inte¬ 
resse y. 

I parametri sono quindi valori angolari e 
rendono conto della eventuale dipen¬ 
denza funzionale (e non causale) della 
variabile y dalle variabili esplicative X r 

II calcolo dei coefficienti della (1) viene 
fatto sulla matrice A contenente i dati 
rilevati (le righe, ricordiamo, sono i pro¬ 


fili individuali dei campioni e le colonne 
rappresentano i caratteri o variabili rile¬ 
vate): 

b, + b 2 x„ + ... + b q x, q = y, 

(2 ). 

b, + b 2 x n) + ... + b q x nq = y n 

A b = y c(> b = A lnv y 
e, poiché A è una matrice generalmente 
non quadrata, l'unica inversa che si po¬ 
trà usare è quella di Moore-Penrose, 
valida per matrici rettangolari e calcola¬ 
ta come (A'A)-' A' H è il simbolo della 
inversa non singolare ordinaria) da cui, 
con ovvio passaggio: 

(3) b = (A'A)' , A'y 

I valori trovati sono, naturalmente, solo 


Tabella 2- Dati sulle 
immatricolazioni di 
automobili nei due 
anni, esemplo 
numerico per 
rautoregressione dei 
risultati. Il valore t è 
semplicemente un 
Indice progressivo, 
dal 1° dato all’ultimo. 
Serve a"pesare” 
diversamente I dati, 
dando un maggior 
valore al più recenti. 


una stima campionaria, che può essere 
più correttamente trattata consideran¬ 
do anche i limiti fiduciali (gli intervalli 
entro i quali si ha una probabilità 1-a 
per a arbitrario, di trovare il valore rea¬ 
le), calcolati come: 

W *K= b . ± z «S b 

con, per esempio, z 006 = 1,96 ed S scar¬ 
to quadratico mediò calcolabile come: 

(5) S b 2 = (e'e/(n-q-1)(A'A)> 
e = (y-Ab) 

Per verificare che ogni singolo coeffi¬ 
ciente calcolato sia significativamente 
diverso da 0 con probabilità a basterà 
accettare l'ipotesi (di significativa diver¬ 
sità) se b/SQR(SJ <, |t/a/2| con t varia¬ 
bile distribuita secondo la t-Student con 
(n-q-1) gradi di libertà. 

I coefficienti trovati però, pur rendendo 
conto da soli del contributo netto alla 
variabile di interesse (cioè eliminata la 
parte di correlazione esistente tra la 
stessa e le q-1 variabili esplicative) so¬ 
no distorti dall'unità di misura delle sin¬ 
gole variabili x r Bisognerà, perciò, utiliz¬ 
zare i cosidetti coefficienti 6, facilmente 
derivabili dai coefficienti b della (3) me¬ 
diante la seguente trasformazione: 

(6) 6, = b, (S,/S) 

S = SÒR (varianza) 

ottenendo dei valori confrontabili per la 
scelta delle variabili più significative che 


t 

Immatricolazioni x 1.000 

1 

100.7 \ 

2 

107.1 ( 

3 

95.5 7 1976 

4 

115.3 ; 

5 

100.5 ) 

6 

99.0 ( „ , 

7 

115.3 ( 1977 

8 

ii3.6 ; 

9 

Dato da "prevedere" 

10 

Dato da "ripetere" 


Listato 1 - Il programma Multlreg. 

t REM ******************** 

2 REM * MULTIREG * 

4 REM- *-* 

5 REM * BY R. BRUNIRLO * 

6 REM * ON 10.3.84 * 

7 REM ******************** 

8 REM 

9 REM 

10 REM 

1000 REM ********************** 
1010 REM MENU’ PRINCIPALE 
1020 REM ********************** 
1030 HOME 
1040 D* = CHR* (4) 

1050 PRINT : PRINT 
1060 POR I = 1 IO 40:LN* = LN* + 
NEXT 

1070 PRINT LN$ 


1080 PRINT : PRINT 
1090 PRINT " 1 -- REGRESSIONE 

MULTIPLO" 

1100 PRINT 

1110 PRINT " 2 - RUTOREGRESSI 

ONE" 

1120 PRINT : PRINT 
1130 PRINT LN* 

1140 INPUT “QUALE? ”;N 
1150 ON N GOSUB 10000,20000 
1160 REM 

2000 REM ********************* 
2010 REM CALCOLO MARGINALI 
2020 REM ********************* 

2030 REM 

2040 PM = RI + 1:PV = RI + 2 

2050 FOR 1=1 TO Cl 

2060 FOR J = 1 TO Ri 

2070 A <PM, I) = A(PM, I) + A<J, I) 

2080 A(PO, I) = A <PV, I) + A(J, I) * 
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Statistica a più dimensioni 



Seguito listato Multireg 


1J) 




5070 

NEXT : NEXT 




5080 

REM 



A(J,I) 

6000 

REM ******************* 


2090 

NEXT 

6010 

REM CQEFF B 


2100 

NEXT 

6020 

REM ******************* 


2110 

POR I =■ 1 TO RI 

6030 

REM 


2120 

A1PM,0) = 01PM,0) + V < I ) 

6040 

FOR I = 1 TO CI 


2130 

0(PV,0) = 0<PV,0) + Y <I> * Y 

6050 

FOR ,J = 1 TO CI 



(I) 

6060 

0(0,I) = 0(0,1) + INVÌI,J) 

* 

2140 

Y(PM) = Y<PM) + Y(I> 


0 1J, 0) 


2150 

Y (PO) = Y(PV> + Y(I) * Y < I ) 

6070 

NEXT : NEXT 


2160 

NEXT 

6080 

REM 


2170 

Y(PV) = <Y(PV) - Y (PM) ' s 2 / 

7000 

REM ******************* 



RI ) 

7010 

REM ERR OB-Y 


2180 

Y (PM) = Y (PM) / RI 

7020 

REM ******************* 


2190 

REM 

7030 

REM 


3000 

REM ******************** 

7040 

REM 


3010 

REM CALCOLO (0’ * 0) 

7050 

REM *** VALORI TEORICI *** 

3020 

REM ******************** 




3030 

REM 

7060 

REM 


3040 

POR I = 1 TO CI 

7070 

FOR I = 1 TO RI 


3050 

FOR J = 1 TO CI 

7080 

0(1,0) = 0 


3060 

POR K = 1 TO RI 

7090 

FOR J - 1 TO CI 


3070 

1NVU.J) = INVÌI,J) + 0 (K, I ) 

7100 

0(1,0) = 0(1,0) + 0(0, J) * 

0 


* A <K, J) 


( I, J) 


3080 

NEXT : NEXT : NEXT 

7110 

NEXT : NEXT 


3090 

REM 

7120 

REM 


4000 

REM ******************* 

7130 

REM *** DIFFERENZA *** 


4010 

REM CALCOLO <fl’ *0) ''-1 

7140 

REM 


4020 

REM ******************* 

7150 

FOR I = 1 TO RI 


4030 

REM 

7160 

0(1,0 = Y ( I ) - 0(1,0) 


4040 

FOR K = 1 TO CI 

7170 

0(0,0 = 0(0,0 + 0(1,0 


4050 

FOR J = 1 TO CI 

7180 

0(0,0) = 0(0,0) + 0(1,C) * 

0 

4060 

IP J = K THEN 4120 


(1,0 


4070 

INV <K,J> = INV(K,J) / INV(K, 

7190 

NEXT 



K) 

7200 

0(PV,C> = (0(0,0) - (0(0,0 

A 

4080 

FOR I = 1 TO CI 


2 / RI> ) / (RI - 1> 


4090 

IF I = K THEN 4110 

7210 

0 ( PM, 0=0 (0, C) / RI 


4100 

INVÌI,J) = INVÌI,J) - INVÌI, 

7220 

REM 



K) * INV1K,J) 

7230 

REM *** MEDIE,VOR,T-STOT 

* 

4110 

NEXT I 


** 


4120 

NEXT J 

7240 

REM 


4130 

FOR I = 1 TO CI 

7250 

SIG = 0(0,0) / (RI - Cl) 


4140 

IF I = K THEN 4160 

7260 

FOR I = 1 TO Cl 


4150 

INVÌI, K> = - INVÌI, K) / INV 

7270 

BVl I ) = SIG * INV ( I, I) 



<K, K) 

7280 

TV(I) =0(0,1) / SOR (BV ( I ) 

4160 

NEXT I 


) 


4170 

INV1K, K> = 1 / INV1K, K) 

7290 

0(PV, I) = (OIPV, I) - < 0( PM, 

I 

4180 

NEXT K 


) * 2 / RIO / (RI — 1 ) 


5000 

REM ****************** 

7300 

0(PM, I) = 0(PM, I) / Ri 


5010 

REM PRODOTTO 

7310 

VT = VI + 0(PV,1) 


5020 

REM ****************** 

7320 

NEXT 


5030 

REM 

7330 

DT = 1 - (0(0,0) / Y 1PV)) 


5040 

FOR I = 1 TO CI 

7340 

Y(PV) = Y(PV) / (RI - 1) 


5050 

FOR J = 1 TO RI 

7350 

REM 


5060 

011,0) * 0(1,0) + 0 1J, I) * Y 

8000 

REM *********■»■»*•»•***** 
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Seguito listato Multireg 

8010 REM STAMPA RISULTATI 
0020 REM ****************** 

0030 REM 

8040 A(PV, 1) = 0 

8050 PRINT "ORDER";: PRINT TABI 
14)"MEDIA";: PRINT TOB( 30) 
“VAR": PRINT 

8060 PRINT " V";: PRINT TABI 1 

1 )V(PM) ; : PRINT TAB( 27>Y(P 
V) 

8070 FOR I = 1 TO CI 
8080 PRINT " "; I ; 

8090 PRINT TABI 1DAIPM, I);: PRINT 
TABI 27)A(PV,I) 

8100 NEXT 
8110 PRINT 

8120 PRINT TABI 14)"C0EFF";: PRINT 
TABI 30)"COEFF" 

8130 PRINT TABI 14)" B PRIN1 

TABI 30)"BETA" 

8140 PRINT 

0150 FOR I = 1 TO CI 

8160 PRINT " "; I ; 

8170 PRINT TABI 11)AIO,I);: PRINT 

TABI 27)A(0,1) * A I PV, I) / 

Y (PV) 

8180 NEXT 
8190 PRINT 

8200 PRINT TABI 14)"STAT";i PRINT 

TABI 30)"VAR" 

8210 PRINT TABI 14)" T"PRINT 

TABI 30)" B" 

8220 PRINT 

8230 FOR I = 1 TO CI 

8240 PRINT " ";I; 

8250 PRINT TABI 11)TV I I) ; : PRINT 
TABI 27)BVII) 

8260 NEXT 

8270 PRINT 

8280 PRINT "TOT VAR X= ";VT 
8290 PRINT "COEFF DET= ";DT 
8300 PRINT 

8310 PRINT "IE’ *E)/(P-Q) 

" ;SIG 

8320 PRINT "MEDIA DEGLI ERR0R1= 

" ;A (PM, C) 

8330 PRINT "VAR, DEGLI ERRORI= 

" ;A(PV, C) 

8340 END 

10000 REM ***# ******* ******* 

10010 REM MULTI REGRESSIONE 
10020 REM ****************** 

10030 HOME :PT = 1 
10040 PRINT LN$ 

10050 PRINT : PRINT 

10060 PRINT "NOME FILE DATI VARI 


ABILI INDIPENDENTI" 

10070 PRINT 

10080 INPUT " ";A$ 

10090 PRINT 

10100 PRINT "NOME FILE DATI VARI 
ABILE DIPENDENTE" 

10110 PRINT 


q 


e = y - y* 

3T = media var. i-esima 
S 2 = varianza var. i-esima 



n 




n 

Numero righe 

le 2 , 

i=i 

b , 

b a 

b a 

le 2 

1 = 1 ' 

0 






1 

y; 

1 

40 

9 

e, 

2 

y; 

1 

22 

15 

e 2 

3 

y*3 

1 

23 

18 

e 3 

4 

y; 

1 

41 

11 

e < 

5 

y; 

1 

42 

17 

e 5 

6 

y; 

1 

37 

8 

e 6 

7 

y; 

1 

33 

8 

e 7 

8 

y* 8 

1 

30 

12 

e 8 

9 

y* 9 

1 

20 

13 

e 9 

10 

y; 0 

1 

27 

3 

e ,o 

11 

y; 

1 

18 

15 

e„ 

12 

y; 2 

1 

26 

5 

e i2 

13 

y; 3 

1 

24 

7 

e i3 

14 

y^ 

1 

30 

4 

e u 

15 

y; 6 

1 

10 

10 

e ,5 

16 

y; 6 

1 

8 

20 

e i6 

17 

y; 7 

1 

38 

6 

e ,7 

18 

y; 8 

1 

10 

4 

e ,8 

19 

y; 9 

1 

4 

12 

e i9 

20 

y*2o 

1 

17 

3 

e 20 


y* 

x , 

x 2 

X 3 

e 


sv 

s 2 , 

s 2 2 

S 2 3 

S 2 e 


0 

1 

2 

3 

4 



Numero colonne 



Figura 1 - Esemplo di 
come saranno 
disposti I dati alla 
line 

dell'elaborazione; 
eventuali programmi 
che necessitano dei 
dati suddetti possono 
essere “accodati” 
alla fine del 
programma Multireg 
tenendo conto della 
figura. 
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verrà effettuata scartando quelle che: 

1) hanno i coefficienti b non significativi 
diversi da 0: 

2) hanno i coefficienti 6, più bassi di un 
certo livello prefissato. 

Può essere anche di un certo interesse 
calcolare il coefficiente di determinazio¬ 
ne del modello,R 2 che denota la percen¬ 
tuale della varianza della variabile y 
spiegata dall'insieme delle variabili x r 
Tanto più elevato il valore, (compreso 
tra 0 ed 1 ) tanto più buona è l'approssi¬ 
mazione del modello a quello determini¬ 
stico (in cui, cioè, il valore di y è comple¬ 
tamente fissato, noti quelli delle x ( ), mai 
occorrente nella pratica, corrisponden¬ 
te a R ? = 1. 

Autoregressione 

ed analisi delle serie storiche 

Una applicazione che usa i risultati 
raggiunti dalla regressione lineare mul¬ 
tipla a scopi predeittivi, assai interes¬ 


sante per la semplicità e la efficacia dei 
risultati, è quella nota come “autore¬ 
gressione". 

Qualora i dati vengano campionati in 
funzione del tempo, ad intervalli costan¬ 
ti, (o sia comunque possibile ricondurli 
sotto tale forma) possiamo considerare 
gli stessi come realizzazioni di una va¬ 
riabile dipendente dai propri valori pre¬ 
gressi che si comportano come variabili 
esplicative vere e proprie. 

Per esempio, se abbiamo dei dati ri¬ 
guardanti il numero di immatricolazioni 
di macchine lungo un certo periodo 
(1977-78), rilevato a scadenza trime¬ 
strale, possiamo costruire un modello di 
regressione mediante il quale prevedere 
l'ammontare delle nuove immatricola¬ 
zioni in un prossimo intervallo di tempo 
futuro. 

In tabella 2 vengono riportati i valori 
tratti da un esempio comparso nell'arti¬ 
colo di J. Hudson riportato in bibliogra¬ 
fia. 


Il problema che vogliamo risolvere è il 
seguente: 

possiamo prevedere il numero di nuove 
immatricolazioni trimestrali lungo tutto 
l'arco dell'anno 1979? 

La risposta è affermativa. Si suppone 
infatti che i dati contengano una certa 
quantità di informazione sul "trend" ge¬ 
nerale che essi descrivono. Anche la 
logica ci porta a considerare non pere¬ 
grina l’idea che le immatricolazioni in 
un dato tempo t dipendano dal numero 
delle stesse, negli intervalli di tempo im¬ 
mediatamente precedenti. 

La funzione ricercata sarà del tipo: 

(7) y, = b, + tb 2 + y M b 3 + ... + y,. q 

dove q è il numero degli intervalli pre¬ 
gressi che intendiamo usare nella deter¬ 
minazione della variabile di interesse. 

La scelta del valore di q dipende, es¬ 
senzialmente dal tipo di dati a cui si 
applica l'analisi. Non conviene sceglier¬ 
lo troppo grande se siamo interessati ai 
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10120 

INPUT 

.. •• ;YS 


10130 

PRINT 

: PRINT 


10140 

PRE¬ 

LN* 


10150 

PRINT 

D*;"OPEN"*0$ 


101 60 

PRINT 

D*;"READ"; A» 


10170 

INPUT 

ND: INPUT Ci: 

INPUT 

RI 



10180 

PRINT 

D*;"OPEN";Yt 


10190 

PRINT 

DS;"READ";Y* 


10200 

INPUT 

ND: INPUT C2: 

INPUT 

R2 



10210 

IF C2 

> 1 THEN GOSUB 5004 

0 




10220 

1F RI 

< > R2 THEN 

GOSUB 

50050 



10230 

PRINT 

D*;"READ";A* 


10240 

FOR I 

= 1 TO RI 


10250 

INPUT 

TP: if TP < > 

1 THEN 

EF 

= 1 : 

GOTO 10270 


10260 

NEXT 



10270 

GQSUB 

50200 


10280 C 

= CI 

+ 1 


10290 

DIM AIRI 2,0 , Y ( R1 

+ 2), 

INVICI, CI >, BV(Cl) ,TV(Cl) 

10300 

IF EF 

THEN FOR I = 

1 TO R 

1 s 

A < 1, 1 > 

= li NEXT 


10310 

FQR I 

= PT TO CI 


10320 

FOR J 

= 1 TO RI 


10330 

INPUT 

A(J,I) 



10340 

NEXT 

: NEXT 

10350 

PRINT 

D*;"READ";Yt 

10360 

FOR I 

= 1 TO RI 

10370 

INPUT 

Y < I ) 

10380 

NEXT 


10390 

PRINT 

D*;"CLOSE" 

10400 

RETURN 

10410 

REM 


20000 

REM ******************** 

20010 

REM AUTOREGRESSIONE 

20020 

REM ******************** 

20030 

HOME 


20040 

PRINT 

LN*; 

20050 

INPUT 

"NOME FILE DATI: "; 

$ 

20060 

PRINT 

LN*; 

20070 

PRINT 

: PRINT 

20080 

INPUT 

"NUMERO DEI PERIODI 

PREGRESSI :";C1 

20090 

PRINT 

: PRINT ! PRINT LN* 

20100 

PRE¬ 

D*;"OPEN";A* 

201 10 

PRINT 

D*;"READ"; A* 

20120 

INPUT 

ND: INPUT NC: INPUT 


NR 

20130 RI = NR - Cl:Cl = CI + 2 
20140 IT NQT < RI > Cl> THCN GQSUB 
50060 

20150 IF NC < >1 THFN GOSUB 5 

0040 

20160 DIM BV(C1),TV<C1),A<R1 + 2 
,C1 + 1 ) , Y ( R1 + 2),INV(C1,C1 





valori immediatamente successivi ai da¬ 
ti più recenti in nostro possesso; Nell’e¬ 
sempio in questione, essendo il risultato 
un valore medio di tendenza, se siamo 
interessati al valore trimestrale converrà 
scegliere q = 4; se siamo invece interes¬ 
sati ai valori annuali, converrà scegliere 
valori maggiori. I valori ricavabili dalla 
(7) all’aumentare dell’indice t tendono a 
degenerare, fornendo dati poco atten¬ 
dibili. Ciò è comprensibile qualora si 
consideri che l’informazione contenuta 
nei dati, renda chiara una tendenza in 
un intervallo prossimo di tempo. 

Per quanto detto dalla (7), si deriva che 
la nostra matrice sarà quella deducibile 
dal sistema di equazioni: 

(g) b l + tb 2 + y M b 3 + "• + y t-q b q + 2 = 

b i + (<J+ ')b 2 + y q b 3 +...+ y,b q+2 = y q+) 
t = numero dei dati 


n = t-q 

immediatamente trasformabile nella (2) 
(vedere, per maggior chiarimento la fi¬ 
gura 2). 

Si ricorda che, poiché il numero delle 
equazioni (n) è pari a t-q e dato che 
bisogna determinare i parametri di q + 2 
variabili, comprendono i coefficienti b, e 
b 2 deve essere t > q + 2. In caso contra¬ 
rio non si potrebbero calcolare tutti i 
valori per l'insufficiente numero di e- 
quazioni nel sistema di figura 4. 


Il programma Multireg 

Quanto detto sino ad ora è facilmente 
applicabile nella pratica mediante il 
programma Multireg, di uso assai sem¬ 
plice. Esso permette il calcolo dei para¬ 
metri delle funzioni di regressione multi- 
lineari, insieme a tutti gli altri valori di 
interesse statistico. 


Per selezionare una delle due metodo¬ 
logie, basta inserire un 1 o un 2 alla 
richiesta formulata dal menu principale. 
Se si sceglie l’opzione 1 (multiregressio- 
ne) bisognerà specificare, su richiesta 
dello stesso programma: 

1) nome del file in cui giacciono i dati 
delle variabili indipendenti, sotto forma 
di matrice, scritta nel formato di cui alla 
figura 3, mediante il programma Edit; 

2 ) nome del file in cui giacciono i dati 
della variabile dipendente, sotto forma 
di matrice n x 1. 

Fatto quanto richiesto, dopo un’atte¬ 
sa, variabile a seconda della quantità 
dei dati raccolti, si avrà un output com¬ 
pleto. Consigliamo, qualora si disponga 
di una stampante di inserire come pri¬ 
ma linea della routine "Stampa dei risul¬ 
tati" una linea come quella che segue: 

xxxx PRINT D$;"PR#";NS 

inoltre la variabile NS (riga 10) deve es¬ 
sere settata con il numero dello slot in 
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20165 

) 

FOR I 

= 3 TO CI 

20166 

INPUT 

Ad, I ) 

20167 

NEXT 


20170 

FOR I 

= 1 TO RI 

20180 

A(I, 1 ) 

= 1 

20190 

A(I,2) 

C4 

+ 

H 

li 

20200 

INPUT 

Yd) 

20210 

NEXT 


20220 

FOR I 

= 2 TO RI 

20230 

Ad, CI ) 

il 

< 

H-t 

1 

h-» 

20240 

FOR J 

= CI - 1 TO 3 STEP 

20250 

Ad, J) 

= Ad - 1,J + 1) 

20260 

NEXT : 

NEXT 

20360 

RETURN 

50000 

REM ****************** 

50010 

REM 

ERROR MSG 

50020 

REM ****************** 

50030 

REM 


50040 

PRINT 

"VETTORE ";Y*;" HA 


IU’ DI 1 

COLONNA": END 

50050 

PRINT 

"RIGHE MAT "; A*; “ 


> RIGHE VET ”;Y*: END 
50060 PRINT "I PERIODI PREGRESSI 
SONO TROPPI PER I DOTI IN 
POSSESSO": END 

50200 IF NQT EF TIHEN GOTO 5026 


50210 PRINT "*** WORNING ***": PRINT 

50220 PRINT "NELLO COLONNO 1 DEL 
LO MOT ";0* 

50230 PRINT "NON E’ PRESENTE LO 
VORIOBILE DUMMY 7 1 7 " 

50240 IF I < >1 THEN PRINT "N 

ON E 7 POSSIBILE RIMEDIORE”: END 

50250 PRINT "TENTO DI INTERVENIR 
E INSERENDO UNO": PRINT "COL 
ONNA DI ’l’ IN PRIMA POSIZIO 
NE" 


50260 

PRINT D$;"CLOSE 

" ;A* 

50270 

PRINT D$;"OPEN" 

;P$ 

50280 

PRINT D*;"READ" 

; A* 

50290 

INPUT ND: INPUT 

Cl: INPUT 

RI 


50300 

IF NOT EF THEN 

RETURN 

50310 

li 

F 

0. 

+ 

H 

U 

il 

u 

2 

50320 

RETURN 
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Listato 2 - Il programma PCA. 

1 REM ************************* 


2 REM * PCA PROGRAM * 

3 REM * - * 

4 REM * BY R.BRUNIALTI * 

5 REM * ON 10.5.84 * 


6 REM #****#*****■•**#■•****#■*■***** 

7 REM 

8 REM 

9 REM 


10 

FOR 1 = 1 TO 39 s LN$ = 

LN$ 


II 


s NEXT 




20 

HOME 




30 D* = CHR* (4) 




40 

REM 




1000 

REM **#**************** 



1010 

REM MENU’ 




1020 

REM ******************* 



1030 

REM 




1040 

PRINT LN$ 




1050 

INPUT "FILE DATI INPUT : 

II 

1 • 

7 


N* 




1060 

PRINT LN$ 




1070 

PRINT 




1080 

PRINT "FILES DI OUTPUT SU 

D 


ISCHETTO (S/N)" 




1090 

PRINT 




1100 

PRINT N*;".R"; 




1110 

HTAB (20): SET FR* 




1120 

IF FR$ ( > "S" AND 

"N" THEN GOTO 1110 

FR$ 

( 

> 

1 130 

PRINT FR* 




1 140 

PRINT N*;".AVL"; 




1 150 

HTAB 20: GET FL* 




1160 

IF F'L$ ( > "S" AND 

"N" THEN GOTO 1150 

FL* 

( 

> 

1170 

PRINT FL$ 




1 180 

PRINT N$;".AVT" ; 




1190 

HTAB 20: SET FT$ 




1200 

IF FT$ ( > "S" AND 

"N" THEN GOTO 1190 

FTS 

( 

> 

1210 

PRINT FT$ 




1220 

PRINT N*;S"; 




1230 

HTAB 20: GET FS* 




1240 

IF FS$ ( > "S" AND 

"N" THEN GOTO 1230 

FS* 

( 

> 

1250 

PRINT FS$ 




1260 

PRINT LN*: PRINT LN$ 




1270 

GOSUB 10000 




1280 

DIM VL (NC) , VT (NC, NC) 

, R(NC, 

N 


C>,S(NC,NC) 




1290 

REM 





2000 REM **#*■*#*■#***#*#**** 
2010 REM CALCOLA R 
2020 REM ****************** 
2030 REM 


2040 FOR I = 1 TO NC 
2050 FOR J = 1 TO NR 
2080 A <0, I> = A(0, I) + A(J, I) 

2070 A <I,O) = A(I,0) + A(J,I) * A 
( J, I > 

2080 NEXT 

2090 REM *** VARIANZE *** 

2100 A(I,O) = SOR <(A(I, 0) - A<0 
,1) * A<0,I) / NR) / (NR - 1 
) ) 

2110 REM *** MEDIE *** 

2120 A(0,I) = A<0,I) / NR 
2130 NEXT 

2140 REM *** STANDARDIZ. •**■* 

2150 FOR I = 1 TO NR 

2160 FOR J = 1 TO NC 

2170 0(1,J) = (A(I,J) - A(0,J)) / 
A(J, 0) 

2180 NEXT : NEXT 

2190 REM #** PRODOTTO *** 

2200 FOR J = 1 TO NC 

2210 FOR I = J TO NC 

2220 FOR K = 1 TO NR 

2225 R(J,I) = R(J, I) + A(K, J) * 0 

(K, I) 

2230 NEXT 

2240 R(J, I) = R(J, I) / (NR - 1):R 
(I, J) = R(J, I) 

2245 NEXT : NEXT 

2250 IF FR$ = "S" THEN SOSUB 20 
040 

3000 REM *#**#■*•***■**■**■****•* 

3005 REM CALCOLA VT&VL 
3010 REM *****#*#*#***#•***■# 

3015 REM 

3020 REM *** INIZIALI ZZA *** 

3025 REM 

3030 SI = 8 

3035 FOR I = 1 TO NC 

3040 VL(I) = 1 

3045 VT(I,I) = 1 

3050 NEXT I 

3055 Z = 2 * SI 

3060 TI = 1 / (10 A Z> 

3065 R = 5 * NC /V 2 

3070 RI = O 

3075 T2 = .1 

3080 NI = NC - 1 

3065 REM *** ROTAZIONE ** 

3090 XI = O 

3095 FOR K = 1 TO NI 

3100 K1 = K + 1 

3105 FOR L = K1 TO NC 

3110 Al = R(K,K) 

3115 A2 = R <K,L) 

3120 A3 = R(L,L) 

3125 X = A2 * A2 / (Al * A3) 
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3130 

IF X > XI THEN 3140 


3135 

GOTO 3145 


3140 

X 

M 

li 

X 


3145 

IF X < T2 THEN 3360 


3150 

RI = RI + 1 


3155 

IF Al = A3 THEN 3180 


3160 

Z = . 5 * (Al - A3) / 

A2 

3165 

ZI = 1 + 1 / (Z * Z) 


3170 

T = - Z * (1 + SOR 

(ZI ) ) 

3175 

GOTO 3185 


3180 

T = 1 


3185 

C = 1 / SQR <1 + T * 

T) 

3190 

S = C * T 


3195 

S2 = S * S 


3200 

C2 = C * C 


3205 

33 

7 . 

r 

» 

o 


3210 

REM 


3215 

AO = 2 * A2 * C * S 


3220 

R <K,K) = Al # C2 + AO 
S2 

+ A3 * 

3225 

R(L,L) = Al * S2 - AO 
C2 

+ A3 * 

3230 

REM 


3235 

FOR I = 1 TO NC 


3240 

IF I < K THEN 3255 


3245 

IF I > K THEN 3275 


3250 

GOTO 3325 


3255 

AO = R <I,K) 


3260 

R ( I,K ) = C * AO + S * 

R ( I, L) 


Figura 2 • Matrice A, b e y ricavata dalla tabella dati n.2, per maggiori 
chiarimenti vedere formule (7) ed (8). 


1 

8 

115.3 

99.0 


b, 

113.6 

1 

7 

99.0 

100.5 


b 2 

115.3 

1 

6 

100.5 

115.3 

• 

b 3 = 

99.0 

1 

5 

115.3 

95.5 


b 4 

100.5 

1 

4 

95.5 

107.1 


b 5 

115.3 


Figura 3 • Formato di Immagazzinamento delle matrici au dischetto. Vanno 
ordinate per colonne, facendo precedere al dati una label con le seguenti 
Informazioni: ND » sempre uguale a 2 (numero delle dimensioni) - NC = 
numero delle colonne • NR = numero delle righe. 



3265 

R(I,L.) = - S * AO + C * 

,L> 

R ( I 

3270 

GOTO 3325 


3275 

IF I < L THEN 3290 


3280 

IF I > L THEN 3310 


3285 

GOTO 3325 


3290 

AO = R (K, I ) 


3295 

R(K,I) = C * AO + S * R(I 

,L> 

3300 

R ( I, L ) = - S5 * AO + C * 

, L> 

R ( I 

3305 

GOTO 3325 


3310 

AO = R(K,I) 


3315 

R(K,I) =C*AO+S*R(L 

, I) 

3320 

R(L, I) = - S * AO + C * 

, I) 

R (L 

3325 

NEXT I 


3330 

REM 



FOR I = 1 TO NC 


3340 

UO = VT(I,K) 


3345 

VT(I,K) = C * UO + S * VT(I, 
L) 

3350 

VT(I,L) = - S * UO + C « 

(I, L) 

VT 

3355 

NEXT I 


3360 

NEXT L 


3365 

NEXT K 


3370 

IF XI < TI THEN 3390 


3375 

IF RI > R THEN GOSUB 50040 

3380 

H 

X 

* 

H 

il 

(M 

1- 


3?85 

GOTO 3090 


3390 

REM *** NORMALIZZA *** 


3395 

FOR I = 1 TO NC 


3400 

FOR J = 1 TO NC 


3405 

VT ( I,J) = VT(I,J) * VL(I) 


3410 

NEXT J 


3415 

NEXT I 


3420 

FOR I = 1 TO NC 


3425 

VL ( I ) = R ( I, I ) 


3430 

NEXT I 


3435 

REM 


3440 

FOR I = 1 TO NI 


3445 

11=1+1 


3450 

2 = VL ( I ) 


3455 

M = I 


3460 

FOR J = Il TO NC 


3465 

IF Z < VL.(J) THEN 3480 


3470 

Z = VL < J ) 


3475 

M = J 


3480 

NEXT J 


3485 

VL (M > = VL ( I ) 


3490 

VL ( I ) = Z 


3495 

FOR J = 1 TO NC 


3500 

Z = VT(J,I) 


3505 

VT ( J, I) = VT ( J,M) 

-► 
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APPLE 


Figura 4 - Esemplificazione geometrica della PCA (caso q - 3) per le variabili x,y e z. Il nuovo sistema 
di riferimento sarà dato dalle tre componenti (o assi) principali, orientati conformemente agli assi 
passanti per il centro di massa, C, del sistema di punti-campione. 



cui è inserita l'interfaccia, agendo an¬ 
che da flag per la stampa di ulteriori 
dati, non necessari nella versione con 
uscita su video. 

Qualora si scelga l'opzione 2 (autore¬ 
gressione) bisognerà specificare: 

1) nome del file contenente i dati della 
variabile Y in oggetto (dimensioni t x 1, 
sempre nel formato come in figura 5; 

2 ) numero (q) dei periodi pregressi che 
vengono considerati nella espressione 
(7). 

Anche in questo caso si avranno gli 
output forniti nel caso precedente. 

Suggerimenti 
per l’adattamento 
ad altri computer 
del programma Multireg 

Il programma è stato scritto utilizzan¬ 
do le istruzioni generiche del BASIC Mi¬ 
crosoft, tranne che per le routine 10000 
e 20000, dove si utilizzano comandi del 
DOS 3.3. 

Qualora si volesse utilizzare il program¬ 
ma su altri computer, bisogna che a 
partire dalla linea 1000: 

1) i dati siano inseriti nelle matrici e vet¬ 
tori, dimensionati nel modo seguente: 

• BV (CI) vettore delle varianze dei 
coefficienti b,; 

• TV (CI ) vettore dei valori t per il test di 
significanza dei b,; 

• A (RI + 2, CI + 1) matrice dei dati, 
deve avere già i dati inseriti; 

• Y (RI) vettore variabili dipendenti, de¬ 
ve avere i dati inseriti; 

• INV (CI ,C1 ) matrice in cui verrà calco- 


Flgura 5 - 
Considerando la 
figura 4, In A 
appaiono le 
proiezioni del punti- 
campione, 
scegliendo coppie di 
assi costituiti dalle 
variabili originarie. 
In B II risultato dopo 


© 




a 


‘m sa 


© 




la trasformazione 
degli stessi con la 
PCA. Se si considera 
che le variabili sono 
solo tre si può 
apprezzare 
l'Incremento del 
potere di distinzione 
del clusters. 


' ••• 


Var x o y o z 


Prima comportante principale 
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3510 

VT(J,M) 

= Z 

3515 

NEXT J 


3520 

NEXT I 


3525 

I = 0 


35ùO 

PRINT 


3535 

PRINT " 



(3. 


3540 

PRINT 


3545 

FOR J = 

NC TO 1 STEP - 1 

3550 

t—i 

II 

+ 

l: PRINT I;: PRINT TAB( 


3)VL <J); : PRIMI TAB < 16>VL( 
J) / NC;sftC = OC + VL. <J) / N 
Cs PRINT TREK 30)RC 
3555 NEXT 

3560 IF FT* = "S" THEN GOSUB 20 
130 

3565 IF FL* = "S" THEN GOSUB 20 
220 

4000 REM ****************** 

4010 REM COCCOLO S 

4020 REM *■***•#**#*■**•*■**■**** 

4030 REM 

4040 FOR I = 1 TO NC 
4050 TP = SQR (VL(I)) 

4060 FOR J = 1 TO NC 
4070 S(J,I) = TP * VT(J,I) 

4080 NEXT : NEXT 

4090 IF FS* » "S" THEN GOSUB 20 
300 

5000 REM ***•*■#**•*■*•***#•■**#** 

5010 REM PLOT 

5020 REM **#***■#**•#**•*****•* 

5030 REM 
5040 PT = NC + 1 

5050 MX = - 1E30SMY = - 1E30:NY 

-= 1E30:NX = IE30 

5060 PRINT LN* 

5070 PRINT 

5080 INPUT "VUOI PLOTTRRE I CfiMP 
IONI <S/N> ?";RI$ 

5090 IF RI* < > "S" THEN END 

5100 PRINT "SCELTA DELLE COMPONE 
NTI PRINCIPALI" 

5110 PRINT "SUL CUI SPAZIO PLOTT 
ARE I CAMPIONI" 


5120 

PRINT 



5130 

INPUT 

"COMP. N. 1 

(X-AXIS)= 

5140 

A = NC 

- A + 1 


S 1 HO 

T NPI IT 

"rninD i\|, o 

(y-fìXIS)= 


;B 



5160 

B - NC 

- B + 1 


5170 

FOR I 

- 1 TO NR 


5180 

Ad, 0) 

= 0: A <1,PT) 

= 0 

5190 

FOR J 

= 1 TO NC 



5200 Ad, 0) = A (1,0) + VT ( J, A) * 

A < I, J) 

5210 Ad, PT ) = Ad, PT) + VT ( J, B) * 
A(I,J> 

5220 NEXT 

5230 IF Ad, PT ) > MY THEN MY = A 
(I, PT) 

5240 IF A(I,PT) < NY THEN NY = A 
(I, PT) 

5250 IF 0(1,0) > MX THEN MX = A( 
1,0) 

5260 IF A(I,0) < NX THEN NX = A< 

1 , 0 ) 

5270 NEXT 

5280 RX = HBS (MX - NX):RY = ABS 
(MY - NY) 

5290 RX = RX * 2:RY = RY ♦ 2 

5300 ST = 160 / RY 

5310 IF RX > RY THEN ST = 280 / 

RX 

5320 HGR : HCOLOR= 3 
5330 HPLOT 140,0 TO 140,160: HPLOT 
0,80 TO 279,80 

5340 HPLOT 0,0 TO 279,0 TO 279,1 
59 TO 0,159 TO 0,0 
5350 FOR I = 1 TO NR 
5360 X = INI ((A(1,0) * ST) + 14 
0) 

5370 Y = 160 - INT <(A(I,PT) * S 
T) + 80) 

5380 HPLOT X, Y TO X + 2, Y T'0 X + 

2, Y + 2 TO X, Y + 2 TO X, Y 
5390 NEXT 

5400 INPUT "ANCORA PLOT?";RI* 

5410 IF RI* = "S" THEN GOTO 512 
0 

5420 END 


Figura 6 - Esemplo di schermata per la definizione degli Input/output su 
disco del programma PCA. Si suppone l’esistenza di un file dati PCAFL. 
Verranno create le matrici, su dischetto e con il formato di figura 3: 
PCAFL.R (matrice delle correlazioni fra le variabili originarie); 
PCAFL.AVT (matrice degli autovettorl associati alle componenti principa¬ 
li); PCAFL.S (matrice delle correlazioni fra le variabili originarie e le 
componenti principali). Il vettore PCA.AVL (degli autovalori estratti), inve¬ 
ce, non verrà memorizzato. 


File dati input: PCAFL 

File di output 


(se si vuole la memorizzazione: S) 


PCAFL.R 

S 

PCAFL.AVL 


PCAFL.AVT 

S 

PCAFL.S 

S 
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lata l’inversa; 

2) le variabili di dimensionamento devo¬ 
no avere i valori: 

• CI autoregressione', numero dei pe¬ 
riodi pregressi + 2 (per i coefficienti b, e 

b 2 ); 

• CI multiregressione. numero delle va¬ 
riabili, compresa la variabile "dummy" 
(colonna di tutti 1); 

• RI numero dei dati nella matrice A, 
pari al numero delle righe nel caso della 
multiregressione o <t-q nella autore¬ 
gressione. 

Si cancellano, quindi, le routine 10000 e 
20000 . 

Questo dovrebbe bastare. 

Analisi delle componenti 
principali (PCA) 

Le fondamenta dell'analisi delle com¬ 
ponenti principali, (PCA), furono getta¬ 
te da Pearson, nel 1901, come metodo 
per calcolare l’adattamento ottimale di 


ellissoidi (o iperellissoidi) costituiti da 
punti in uno spazio q-dimensionale ad 
assi e piani ottenuti minimizzando la 
somma quadratica delle perpendicolari 
dai punti agli assi di riferimento. 

Solo con i lavori di Fisher ed Hotelling, 
degli anni trenta, furono, però, formaliz¬ 
zate le metodologie e riconosciuti i sensi 
interpretativi delle tecniche conosciute 
oggi sotto il nome di PCA. 

Ben più di recente è invece venuto l'u¬ 
so generalizzato nella ricerca, soprat¬ 
tutto biologica e sociale, in tutti quei 
casi in cui la complessità del modello 
rende difficile la trattazione e l'analisi. 
Una delle definizioni più sintetiche e si¬ 
gnificative di questo tipo di analisi e dei 
suoi scopi è quella di Rao (1964): 
“Quando è disponibile un gran numero 
di rilievi, è lecito domandarsi se sia pos¬ 
sibile sostituirli con un insieme ( da esso 
derivato) ridotto o con le loro funzioni, 
senza una grande perdita di informa¬ 
zione ... le componenti principali, che 


sono funzioni lineari (dei rilievi) sono 
adatte a questo scopo". 

La PCA, quindi, serve a rappresentare 
uno spazio q-dimensionale in un sub¬ 
spazio a p dimensione (p < q) con la 
minor perdita di informazioni possibili. 

La riduzione delle dimensioni del mo¬ 
dello permette rappresentazioni, altri¬ 
menti impossibili, che anche nelle due o 
tre dimensioni, rispecchiano interrela¬ 
zioni fra i dati rilevati che non sarebbero 
accessibili all'indagine, in termini di sole 
due o tre delle variabili originarie. Que¬ 
ste ultime, inoltre, possono essere mes¬ 
se in relazione con le componenti prin¬ 
cipali (o assi principali) in modo da po¬ 
ter ridurre il numero, operando una 
scelta non casuale. 

Data una matrice A. dove le colonne 
rappresentano le q variabili e le righe gli 
n individui, vogliamo compiere una tra¬ 
sformazione lineare delle variabili origi¬ 
nali per ottenerne di nuove, ortogonali 
fra loro (cioè non correlate), con la ma- 


Seguito listato PCA 


20110 

PRINT 

D*;"CLOSE" 





20120 

RETURN 


ÌOOOO 

REM ***************** 

20130 

PRINT 

D*;"OPEN";N*;".VT" 


ÌOOIO 

REM 

CORICO DOTI 

20140 

PRINT 

D*;"URITE";N*;".VT" 


10020 

REM #*#********#**### 

201 50 

PRINT 

21 PRINT NC: PRINT N 


10030 

REM 


C 




10040 

PRINT 

D*;"OPEN";N* 

20160 

FOR I 

= NC TO 1 STEP - 1 


10050 

PRINT 

D*;"READ";N* 

20170 

FOR J 

= 1 TQ NC 


10060 

INPUT 

ND: INPUT NC: INPUT 

20180 

PRINT 

VT <J, I) 


NR 


20190 

NEXT 

: NEXT 


10070 

IF NO 

> NR THEN GOSUEt 500 

20200 

PRINT 

D*;"CLOSE" 


50 


20210 

return- 

i 

10080’ 

DTM 0(NR,NE + 1) 

20220 

PRINT 

D*;"OPEN";N$;".VL" 


10090 

FOR I 

= 1 TO NC 

20230 

PRINT 

D*; "URITE" ;N*; VI." 


10100 

FOR J 

- 1 TO NR 

20240 

PRINT 

2: PRINT l: PRINT NC 


ÌOI10 

INPUT 

0<J, I) 





10120 

NEXT 

: NEXT 

20250 

FOR I 

= NC TO 1 STEP - 1 


10130 

PRINT 

D*;"CLOSE" 

20260 

PRINT 

VL < I ) 


10140 

RETURN 

20270 

NEXT 



20000 

REM **#■**#*#****##*** 

20280 

PRINT 

D*;"CLOSE" 


20010 

REM SCRIVI FILES 

20290 

RETURN 


20020 

REM #■**■*•*■*■***•***#**•#* 

20300 

PRINT 

D*;"OPEN";N*;".S" 


20030 

REM 


20310 

PRINT 

D*;“URITE";N»;". S" 


20040 

PRINT 

D*;"OPEN"•N* j". R" 

20320 

PRINT 

2: PRINT NC: PRINT N 


20050 

PRINT 

D*;"URITE";N»;". R" 

C 




20060 

PRINT 

2« PRINT NC: PRINT N 

20330 

FOR I 

® NC TO 1 STEP - 1 

- 

_ LL 

20070 

FOR I 

“ 1 TO NC 

20350 

rur< j 

PRINT 

- ITU NC 

S(J,I) 


20080 

FOR J 

= .1 TO NC 

20360 

NEXT i 

i NEXT 


20090 

PRINT 

R(J, I) 

20370 

PRINT 

D* :"CLOSE" 


20100 

NEXT : 

NEXT 

20380 

RETURN 
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Seguilo listato PCA 


50000 REM ****************** 

50010 REM ERROR MSG 
50020 REM ****************** 

50030 REM 

50040 PRINT : PRINT "*** ROUT VT 
& VL ***": PRINT "IL RISULT 
ATO NON CONVERGE - ABORT": END 

50050 PRINT : PRINT "*** ROUT CO 
RICA DATI ***": PRINT "1 CAM 
PIONI SONO INSUFFICIENTI - A 
BORT": END 


Listato 3 - L'utility Edlt. 

1 REM ******************* 

2 REM * ED IT PROGRAM * 

3 REM * REL 1.1 * 

4 REM *-* 

5 REM * BY R.BRUNIALTI * 

6 REM * ON 25/08/1982 * 

7 REM ******************* 

8 REM 

9 REM 

100 POKE 34,0: HOME 
HO D* ~ CHR* <4) 

120 HOME 

130 VTAB 1» PRINT "NOME FILE";: HTAB 
15: INPUT "";N* 

140 HTAB 1 

150 INPUT " RIGHE 53 " ; ND ( 1 ) 

180 INPUT "COLONNE»";ND(2) 


180 POKE 34,4 
190 VTAB 4 
200 PRINT "- 


210 DIM A(ND <1)) 

220 ND = ND(2) 

230 XC = XC + 1 

240 HTAB 20: VTAB 4: PRINT " COL 
";XC;" ": PRINT 
250 A = A + 1 

260 IF A = ND <1) THEN PRINT CHR* 

<7); : HTAB 12: PRINT "<— LA 
ST ITEM";: HTAB 1 

270 PRINT A;")";: HTAB 5: INPUT 

" - 

280 IF A = ND(1> AND (A* < > "F 
" OR A» < > "E") THEN A (A) = 
VAL (A»):VC = PEEK (37): GOTO 

320 


290 IF A* = "F" OR A* « "E" THEN 
VC « PEEK (37): GOTO 320 
300 A (A) = VAL (A*) 

310 GOTO 250 

320 REM ****************** 

330 REM INTERRLJPT 

340 REM ****************** 

350 REM 

360 IF A* = "E" GOTO 450 
370 A(A) = VAL <A*> 

380 IF FL « 1 THEN 420 
390 ND “ ND — 1 : GOSUB 570 
400 IF ND < =0 THEN 740 

410 GOTO 230 

420 ND = ND - 1 : GOSUB 660 
430 IF ND < «= 0 THEN 740 

440 GOTO 230 

450 REM ******************* 

460 REM TYPE ERROR 

470 REM ******************* 

480 REM 

490 VTAB 10: HTAB 20 

500 INPUT' "N DATO ERRATO:" ; NN 

510 HTAB 20 

520 PRINT NN;")";: INPUT A(NN) 

530 HTAB 20 

540 PRINT "ANCORA?";: GET Y*: IF 
Y* = "N" THEN VTAB 10: HTAB 
20: PRINT " 

": HTAB 20: PRINT " 

": HTAB 20: PRINT 

" " : A •- A - 

1: VTAB VC: GOTO 310 
550 HTAB 20 

560 VTAB 10: PRINT " ": 

HTAB 20: PRINT " ": HTAB 

20: PRINT " ": GOTO 

460 

570 REM ******************** 

580 REM SCRIVI COLONNA 
590 REM ******************** 

600 REM 
610 FL = 1 

620 PRINT Di;"OPEN ";Ni 
630 PRINT D$;"URITE ";N$ 

640 PRINT 2 

650 PRINT ND(2>: PRINT ND(1) 

660 IF FL THEN PRINT DÌ;"APPEND 
";N*: PRINT Di;"URITE ";NÌ 
670 FOR I = 1 TO A 
680 PRINT Ad) 

690 NEXT 

- 700 - PRINT Di; "CI nSF" _ 

710 A » 0 
720 HOME 
730 RETURN 
740 END 
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APPLE II 


trice di dispersione contenente tutti zeri 
tranne nella diagonale principale. 

La somma dei quadrati di questi, rap¬ 
presenta la variazione totale sui nuovi 
assi; 

Si può dimostrare che i valori della 
diagonale sono gli autovalori non nulli 
della matrice di correlazione delle varia¬ 
bili originarie, ricavati dalla soluzione 
dell'equazione: 

(9) R-Xl = 0 

R. = matrice di correlazione 

m 

r » = K?. (a « -a ' ) 

mentre gli qutovettori associati V, tali 
<) 

che Z v ? i( = 1, permettono la trasforma¬ 
zione delle coordinate dei punti x. nel 
nuovo sistema di riferimento Y dove: 

0°) V, = £, v h, ( a ih-à h ) 


quali gli assi originali sono ruotati. 

A questo punto si deve correlare la 
componente i-esima principale con le 
variabili originarie. È possibile dimostra¬ 
re che: 


(11) S, = V SQR (X,) = 


è il vettore delle correlazioni binarie tra 
la i-esima componente e la variabile ori¬ 
ginaria j (con j = 1.2,... q). 

A questo punto “i giochi " sono fatti. 
Infatti sceglieremo quelle p variabili che 
sono maggiormente correlate (s. mag¬ 
giore) con le componenti principali che 
estraggono una maggior quota della 
varianza totale. 

L’utilità della PCA non si esaurisce qui. 
Molte delle analisi statistiche si possono 
infatti compiere non più sui dati origina¬ 
ri, a^, ma sulle loro trasformazioni nel 


N. ordine 

L 

L/Q 

Cum 

1 

7.459 

.339 

.339 

II 

3.029 

.138 

.477 

III 

1.808 

.082 

.559 

IV 

1.423 

.065 

.624 

V 

1.083 

.049 

.673 

VI 

.915 

.042 

.714 

VII 

.900 

.041 

.755 

Vili 

.760 

.035 

.790 

IX 

.676 

.031 

.821 

X 

.618 

.028 

.849 

XI 

.557 

.025 

.874 

XII 

.466 

.021 

.895 

“XIII 

.409 

.019 

.914 

XIV 

.376 

.017 

.931 

XV 

.320 

.015 

.945 

XVI 

.290 

.013 

.959 

XVII 

.279 

.013 

.917 

XVIII 

.216 

.010 

.981 

XIX 

.165 

7E-3 

.989 

XX 

.105 

5E-3 

.993 

XXI 

.080 

4E-3 

.997 

XXII 

.065 

3E-3 



Figura 7 - Output 
numerico, su 
schermo delle 
componenti principali 
estratte. Vengono 
presentati: I valori 
assoluti ,L, la % della 
varianza totale del 
modello spiegata 
dalla l-esima c.p. 

,L/Q, e la % cumulata 
estratta dalle prime 
c.p.. Come si vede le 
prime 7 (sulle 22 
totali) estraggono 
ben II 75% della 

I nn — M — A— ■ — _ | _ I 

variazione toioie uei 

modello, quanto 
basta per un uso del 
modello sempllllcato 
a sole 7 delle 
variabili. I valori sono 
quelli, reali, di un 
caso pratico, che cl 
ha Indotto alla 
scrittura del 
programma 
presentato. 


i = 1,2.q 

j = 1,2.n 


Il rapporto X, /(EX,) esprime la percen¬ 
tuale della varianza totale estratta dalla 
i-esima componente principale. 
Geometricamente gli autovettori rap¬ 
presentano i coseni degli angoli per i 


sistema di riferimento y, con tutti i van¬ 
taggi che offrono variabili ortogonali. £ 
però più-difficile interpretare i risultati ed 

estenderne il significato sulle variabili 
originarie. 

Si ricorda che, geometricamente, quello 
che si è compiuto è: 

1) traslazione dell'origine degli assi al 
centro di massa del sistema costituito 


dai punti-campione; 

2) rotazione degli assi di un certo ango¬ 
lo per rendere ortogonali i dati. 

Ma ora vediamo ì vantaggi offerti da 
questa tecnica nella rappresentazione 
dei dati. 

Qualora si sia nella situazione in cui 
non si abbiano elementi su cui condur¬ 
re una indagine (caso 2, esposto all'ini¬ 
zio di questo articolo), si può essere 
interessati a vedere graficamente se esi¬ 
stono “raggruppamenti" interni dei da¬ 
ti, clusters, e/o se anche le variabili si 
riuniscono in clusters. 

L’utilizzo della PCA 
nella individuazione 
dei clusters 

L'utilizzo dei risultati della PCA nelle 
tecniche di ordinamento può essere ba¬ 
sata sia sulle matrici che definiscono 
correlazioni tra gli attributi come le ma¬ 
trici di correlazione o dispersione (ana¬ 
lisi di tipo Q). 

Conviene, in genere, condurre analisi di 
tipo R quando, come nel nostro caso, 
sono più numerosi gli individui delle va¬ 
riabili. 

Altrimenti, per economia di calcolo o 
per specificità di intenti, si compirà una 
analisi di tipo Q. 

Rao suggerisce (Use and interpreta- 
tion of principal component analysis in 
applied research - Sanhkya. A - 1964) 
l’uso della seguente trasformazione per 
l’individuazione di clusters (i clusters 
possono essere definiti, più rigorosa¬ 
mente, come gruppi aventi varianza in¬ 
terna inferiore a quella totale): 

(12) Y = XV 

dove V è la matrice contenente gli auto¬ 
vettori estratti dalla matrice R, normaliz¬ 
zati in modo che la somma dei quadrati 
di ogni colonna sia pari a uno. 

La prima colonna della matrice Y offre 
la migliore rappresentazione possibile 
in una dimensione, le prime due nelle 
due dimensioni e cosi via. Infatti la coor¬ 
dinata i-esima di un campione nel nuo- 
vo-sisteroa-di r i f eri m e nto non 6 al tfo -ehe- 

la somma delle variabili originarie, pe¬ 
sata con i coefficienti dell'i-esimo vetto¬ 
re associato alla i-esima componente 
principale, normalizzato, che rappre¬ 
senta i coseni dell’angolo per cui biso¬ 
gna ruotare gli assi originari per ottene- 
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Figura 8 - Esemplo di output grafico di un caso reale, dove II modello comprendeva 22 variabili e 172 
campioni. SI aveva modo di presumere l'esistenza di quattro raggruppamenti Interni, clusters, che 
sono quelli Individuati dal cerchi. La rappresentazione è stata fatta nello spazio della V e 3’ c.p.. 
Come si vede nella realtà le situazioni non sono mai chiarissime. I dati sono gli stessi della figura 7. 



re gli assi principali nell' (iper)spazio 
originale. La scelta dei due primi assi 
principali per la rappresentazione grafi¬ 
ca dei punti campione non garantisce 
che un'apparente mancanza di adden¬ 
samento dei punti sia, però, dovuta ad 
una effettiva mancanza di clusters. 

Una diversa coppia (per esempio la pri- • 
ma e la terza) potrebbe rivelarne l’esi¬ 
stenza. 

Dato il diverso peso dei nuovi assi come 
descrittori della dispersione originaria 
dei campioni (lasciata immutata, con 
tutte le sue proprietà geometriche, dalla 
trasformazione effettuata) non è conve¬ 
niente spingersi, nella ricerca di clu¬ 
sters. oltre alle primissime componenti. 

Il programma PCA 

Tutti i dati numerici che verranno usati 
in input ed in output, saranno letti e/o 
scritti su/da matrici aventi il formato di 
figura 3, come del resto per il program¬ 
ma Multireg. 

Le fasi dell'analisi vengono compiute 



NEL PROSSIMO 



TROVERETE 


P ROGETTO 
AEROMODELLO 
CON UN MSX 

Scopa 

A TRE CARTE 
CON L’APPLE 


Cartelle 

PER TUTTI 
CON LO 
SPECTRUM 

L a GESTIONE 


DEL VIDEO 
CON LO 
SPECTRUM 


IN 

EDOCOLA 

DAL 

ao@ ST© 


Simulazione 

dinamica 

DI FENOMENI 
CONTINUI 
CON IL C 64 


DlEL DATABASE 
SYNTHESIZER 
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APPLE II 


UNA COMODA UTILITY: 

UN EDITOR PER MATRICI 

Poiché si stanno trattando strutture di dati sotto forma, 
per lo più, di matrici o vettori, si è pensato fosse comodo 
disporre di un programma che permettesse la scrittura 
(ed eventuale correzione), su dischetto per Apple II DOS 
3.3, delle stesse. 

Il programma Edit soddisfa a queste esigenze. 

Per una convenzione che ormai è entrata nell’uso di molti 
programmi di elaborazione dati numerici, le matrici ven¬ 
gono scritte facendo loro premettere una label di identifi¬ 
cazione con tre valori, che determinano, rispettivamente, 
il numero delle dimensioni, il numero delle colonne e 
quello delle righe. Le dimensioni sono considerate sem¬ 
pre uguali a 2 (caso di una matrice) per permettere il 
prodotto matrice-vettore secondo le convenzioni dell’al¬ 
gebra matriciale. Altri valori, vengono usati per casi 
particolari (matrici alfanumeriche, matrici multidimen- 
sionali, ecc.). La label permette inoltre il dimensionamen¬ 
to automatico delle matrici nei programmi che le leggo¬ 
no. 

Si ricorda che nei programmi di statistica presentati, si è 
usata la convenzione di far corrispondere le colonne alle 
variabili e le righe ai profili individuali dei campioni 
rilevati. 

In fase editing c’è possibilità di correggere un eventuale 
errore battendo il carattere alfabetico E al posto del 
numero. 

In questo caso verrà attivata una routine di correzione 
che chiederà il numero d’ordine del dato errato, che potrà 
quindi essere ribattuto correttamente. Se poi non ci sono 
altri errori da correggere (rispondere N alla domanda 
“Ancora?”) si continua da dove si era interrotto. 

Viene anche segnalato l’ultimo numero di ogni colonna 

(con la scritta “<-Last Item”) dopo il quale verrà 

registrata sul dischetto tutta la colonna corrente di input. 
Dopo aver pulito lo schermo, si passerà all’input di 
un’altra colonna, sino al termine. 


Bibliografia 

1) Costantini D. 1970, “Fondamenti del calcolo delle 
probabilità”, Feltrinelli. 

z) Sadocchi S. 1980, “Manuale di analisi statistica multi- 
variata”, F. Angeli. 

3) Hudson J. 1983, “Linear regression”, Practical Com¬ 
puter, Febbraio. 

4) Rao C.R. 1968, “Use and interpretation of principal 
compo n cnt analysis in applied r es egrch ,1 ~Sanl t tTya7 

Ser.A. 

5) Greenstadt S. i960, “The determination of thè charac- 
teristic root of a matrix by thè Jacobi method”, 
Math.Meth. fordig. comp. - Wiley. N.Y. 


SUPER OFFERTA DI LUGLIO 
DEL COMPUTER STUDIO 

Via Santhià, 47 - 10154 Torino - tei. (011) 287366 


Commodore 64 

Interfaccia Centronics stampante 70.000 

Idem grafica 95.000 

Fucile ottico con serie giochi 70.000 

Copricomputer in plexiglass 11.000 

Joystick normale 2 pulsanti 14.000 

Joystick fuoco rapido Spectravideo II o simile 18.000 

Joystick tipo bar in metallo con mlcroswitch 60.000 

Joystick competition PRO 5000 con microswitch 39.000 

Registratore dedicato 49.000 

Penna ottica con software 52.000 

Cassetta 10 giochi-novità 16.000 

Idem disco 18.000 

Spectrum 16/48K 

Tastiera professionale 16/48K 80,000 

Kit espansione da 16 a 48K 49.000 

Interfaccia Joystick singola 17.000 

Interfaccia Joystick doppia 26.000 

Interfaccia programmabile 52.000 

Sintetizzatore vocale 70.000 

Sintetizzatore musicale 85.000 

Interfaccia RAM TURBO con ingresso 

2 Joystick più cartridge 70.000 

Amplificatore suono con box 49.000 

Gruppo 10 cassette gioco originali 28.000 

Copricomputer in plexiglass Spectrum 10.000 

Idem per Spectrum Plus 12.000 

Idem per QL 15.000 

Commodore CI 6 

Espansione di memoria 16K RAM 119.000 

Gruppo 10 cassette gioco 40.000 

Adattatore joystick 7.500 

Adattatore registratore 7.500 

Copricomputer in plexiglass 11.000 

Commodore VIC 20 

Motherboard 4 ingressi per cartridge/espansioni 20.000 

Cartridge basic extender 30.000 

Espansione 3K grafica Commodore 30.000 

Espansione 8K RAM 30.000 

Espansione 3/8/16K RAM commut. 75.000 

Espansione 32K commutabile 99.000 

Interf. per tutti i reg. a cassette 12.000 

Interfaccia stampante Centronics 70.000 

Idemgrafica 9 3.000- 

Penna ottica con software 52.000 

Copricomputer in plexiglass 11.000 

Gruppo 10 cassette gioco originali 20.000 

Altre offerte 

10 Diskette di qualità SS/DD con box 

in plexiglass omaggio 35.500 

Idem doppia faccia doppia densità DS/DD 53.000 

Novità: accessorio tagliadischetti "Clipper" 
per utilizzare i dischetti singola faccia sui 2 lati 8.000 

Set di pulizia testine e taratura cinghie 

registratore Commodore e altri 9.000 

Gruppo 5 cassette C15 in vaschetta porta-cassette omaggio 5.000 
Idem 4 confezioni (20 cassette C15 con relative vaschette 14.500 
Contenitore per 10 dischetti in plexiglass 3.500 

Vaschetta porta dischetti floppy - coperchio in plexiglass 
con serr a tura•e cermera =' capacità-5frpezzi-2 4.000 

Idem - capacità 90 pezzi 29.000 

Accessorio "stop joy" per bloccare al tavolo il tuo Joystick 7.500 
Kit di taratura per azimut dei registratori per Commodore 64 
con manuale, software e cacciavite a croce 30.000 


Vendita diretta 0 per corrispondenza. Ordini con pagamento anticipato: 
aggiungere L. 3.000 per spese postali. Ordini con pagamento contrassegno: 
inviare acconto L. 10.000. Le spese postali verranno addebitate al costo. 














Statistica a più dimensioni 



dal programma PCA. Questo legge (dal 
file < n.file>, richiesto dal programma 
stesso) quindi calcola la matrice F[e ne 
estrae gli autovalori A., e gli autovettori 
associati. Questi ultimi li normalizza co¬ 
me descritto in precedenza. 

I risultati possono essere scritti su file di 
nome: 

< n.file > .R 

< n.file > .AUVL 

< n.file > .AUVT 

per un eventuale utilizzo successivo. 
Quindi vengono mostrati i valori assolu¬ 
ti, relativi e cumulati di 
Si ricorda che gli autovalori vengono 
estratti in ordine decrescente di impor¬ 
tanza. Essendo la matrice R simmetrica 
e positiva, è stato usato l'algoritmo cicli¬ 
co di Jacobi. 

Un ulteriore passo viene compiuto con il 
calcolo della matrice S delle correlazio¬ 
ni fra le variabili originarie e le compo¬ 
nenti principali estratte. Il risultato può 
essere memorizzato nella matrice 

< n.file > .S, su dischetto. 

Viene quindi domandato se si vogliono 
disegnare i punti-campione nello spa¬ 
zio di due delle p.c. estratte. Se si rispon¬ 
de affermativamente, comparirà il grafi¬ 
co con tutti gli n campioni. 

Modifiche del programma PCA 
per l’uso su altri computer 

II programma fa uso intensivo di co¬ 
mandi DOS 3.3 dell'Apple II. Per facilita¬ 
re una conversione per altri computer, 
essi sono stati tutti raccolti nelle su¬ 
broutine con numero di riga uguale o 
maggiore di 10000. Sostituendole ade¬ 
guatamente, per un input manuale dei 
dati o per l’uso con altri sistemi operati¬ 
vi, non dovrebbero esserci problemi. Per 
facilitare la conversione sono stati scritti 
REMarks adeguati, specificando la fun¬ 
zione delle routine e i valori che le varia¬ 
bili devono assumere in entrata ed in 
uscita dalle stesse. 

Conclusioni 

Si spera di aver svolto l'argomento in 

maniera rigorosa ma non (troppo) 
noiosa. Riteniamo, del resto, che solo 
un uso pratico dei programmi presenta¬ 
ti possa far apprezzare la potenza dei 
mezzi di analisi e la comodità (speria¬ 
mo) dei programmi stessi. 


Questi sono stati scritti senza risparmio 
di Rem, anche a costo di allungarli un 
poco, al fine di facilitare la lettura e la 
comprensione degli algoritmi usati. 

REMarks del programma PCA 

Le linee contrassegnate con (*) con¬ 
tengono istruzioni del S.O. dell'Apple II o 
istruzioni sue proprie. 

10-40 - Prepara lo schermo. 

* 1000-1260 - Input nome del file dati e 
scelta dei file di output. 

1270 - Richiamo routine di caricamento 
dati (10000). 

1280 - Dimensionamento matrici e vet¬ 
tori. I nomi sono autoesplicativi. 
2000-2100 - Calcolo medie e varianze 
delle variabili. 

2105-2140 - Standardizzazione dei dati 
( s a =(a -a)/sqr( S| )). 

2150-2210 - Calcolo della matrice R del¬ 
le correlazioni binarie delle variabili e 
stampa su dischetto, se selezionato nel¬ 
le 1000-1260. 

3000-3530 - Calcolo degli autovettori ed 
autovalori della matrice R, secondo il 
metodo ciclico di Jacobi. 

3535-3555 - Stampa su video delle com¬ 
ponenti principali (in valore assoluto, 
percentuale e cumulato). 

3560 - Se selezionata l'opzione nelle 
1000-1260, richiamo delle subroutine di 
scrittura matrice degli autovettori su di¬ 
schetto. 

3565 - Come sopra per il vettore degli 
autovalori. 

4000-4080 - Calcola la matrice, S, delle 
correlazioni fra le variabili originarie (ri¬ 
ghe) e le componenti principali estratte 
(colonne). 

4090 - Se selezionata l'opzione nelle 
1000-1260, chiama la subroutine di 
scrittura matrice S, sempre su dischetto. 
* 5000-5070 - Inizializzazione delle varia¬ 
bili per la ricerca dei minimi e dei massi¬ 
mi, per lo scaling automatico dei plot. 
5080-5160 - Selezione, a cura dell'uten¬ 
te, delle componenti principali maggior¬ 
mente significative. 

5170-5270 - Calcolo delle ascisse ed or- 
dinate nel nuovo sistema di rappresen¬ 
tazione, nonché dei minimi e dei massi- 
mi dei due assi. 

5280-5310 - Ricerca dei valori per lo sca¬ 
ling e per il plottaggio. 

* 5320-5340 - Disegno assi e contorni del 
grafico. 


5350-5390 - Plottaggio dei punti cam¬ 
pione. 

5400-5420 - Richiesta di eventuale nuo¬ 
vo plottaggio. 

*10000 - Routine di caricamento dati. 
Vengono assegnati i valori NC = nume¬ 
ro colonne matrice, NR = numero righe 
e dimensionata la matrice A 
(NR.NC + 1). 

*20000 - Routine per la scrittura dei file 
selezionati. 

50000-50190 - Messaggi di errore, che 
provocano la interruzione del program¬ 
ma. 

Nota - La matrice VT ha le colonne in¬ 
vertite (il primo autovettore è nella ulti¬ 
ma colonna). Similmente il vettore VL, 
dove il primo autovalore è nella posizio¬ 
ne NC. ■ 
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Q uesto semplice programma 
(non vi spaventate guardan¬ 
do il listato: la lunghezza è 
dovuta soprattutto alla serie 
di linee Data!) vuole dimostrare come 
sia possibile costruire qualcosa di inte¬ 
ressante e di carino attorno ad una idea 
anche modesta. 

La cosa è nata da una personale “sim¬ 
patia" per il programma Titoli RND, 
pubblicato sul n. 33 di Bit (Novembre 
1982 - rubrica Apple Club - pag. 145). 

A grandi linee, le funzioni svolte dal pro¬ 
gramma sono queste: legge una stringa 
contenuta in una linea Data; gli dà una 
bella “shakerata", anagrammandone 
le lettere; fa “cadere" le lettere ad una 
ad una su di un "piano" posto all'estre¬ 
mo inferiore dello schermo; qui giunte, le 
lettere vanno ad occupare ciascuna il 
proprio posto, ricomponendo e visualiz¬ 
zando a poco a poco la parola (o frase) 
originaria. 

Bello vero! Così ci mettemmo in testa di 
tradurre il programma originale (per Ap¬ 
ple) affinché potesse girare sullo Spec- 
trum. 

La cosa non risultò neppure così com¬ 
plessa, anche grazie alla potenza delle 
istruzioni di “string-slicing" che il nostro 
nero amico ci mette a disposizione. 

Per chi ancora non lo sapesse, l'istruzio¬ 
ne MID$ del BASIC standard è stata 
trasformata nella A$ = B$ (X TO Y), se¬ 
condo noi molto più comoda e versatile. 
Esempio: se in Applesoft vogliamo e- 
strarre i caratteri dal 2 al 4 della stringa 
A$, useremo una B$ = MID$(A$,2,3); con 
lo Spectrum più semplicemente 
B$ — A$(2 TO 4): visto? non occorre più 
ricordarsi se il primo carattere scelto è 
compreso, o no, o forse, ma allora, ve¬ 
diamo, boh!.abbiamo reso l'idea?! 

Una volta riusciti nell'impresa, stava¬ 
mo rimirando il mirabolante (!) risultato, 
quando ci accorgemmo che un cuginet- 
to di 8 anni, si divertiva molto a cercare 
di indovinare la parola prima che la sua 
“ricomposizione" fosse completa, (pro¬ 
grammatori seri: se non avete un cugino 
a disposizione procuratevelo'. vi darà 
idee meravigliose!!) 

Ed ecco il lampo! Perché non elaborare 

un po' il tutto, aggiungere un po'Urgrafi 

ca qui. un po' di suoni là, e magari 
mettere il tutto sotto forma di gioco per 
due persone, tanto per rendere la cosa 
più appassionante? 

E a questo punto, perché non unire il 


Geo-Race 


Come una semplice idea può diventare 

un simpatico programma 

di Federico Lo Cicero 


dilettevole all'utile mettendo come Data 
qualcosa di “scolastico"? 

Detto fatto, ecco disegnato il campo di 
gioco: un trampolino dal quale una bel¬ 
la ruspa fa cadere le lettere, un tappeto 
pneumatico per raccoglierle, un display 
che tiene i punti....et voilà il gioco (è 
proprio il caso di dirlo!) è fatto. 

Come materia è stata scelta la geogra¬ 
fia (da qui il nome del programma), e 
precisamente una accoppiata città-re- 


sbaglia, perde punti e l’indicatore scen¬ 
de. 

Vince naturalmente il giocatore che 
raggiunge per primo il “fondo-scala". 
Un ultima nota di programmazione: 
Geo-Race è di quanto più anti-struttura- 
le si possa trovare. 

Noterete che ogni tanto una lnkey$ in¬ 
tercetta la pressione di un tasto: molti di 
voi inorridiranno e chiederanno “mai 
sentito parlare di subroutine?!" Giusto, 


Figura 1 - 
Un hard copy 
del gioco. 



gione di appartenenza. 

Ma se preferite potrete cambiare facil¬ 
mente materia, modificando solo le Da¬ 
ta ed il "prompt" alla linea 68. 

Troverete le istruzioni nel listato; co- 

munque sappiate che si gioca in due: il 

primo dei giocatori che indovina la città, 
preme il suo bravo tasto e ferma il gioco. 
Gli viene chiesta la regione corrispon¬ 
dente e, se indovina, il suo punteggio 
aumenta e l'indicatore di punti sale; se 


noi vi giriamo la domanda, “mai sentito 
parlare dei tempi di ricerca delle Go- 
sub?", (voi potreste replicare suggeren¬ 
do di piazzare la subroutine all’inizio del 
listato, ed io allora...ma non la finiremmo 

più). 

Quello che conta è che così il program¬ 
ma è sufficientemente veloce nel ricono¬ 
scere la pressione di uno dei tasti di 
gioco, e questo è quello che importa. 

Il programma così com'è presentato gi- 
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ra sul 48 Kbyte, ma è facile farlo stare 
anche nel 16, accorciando la lista delle 
Data e magari registrando gli U.D.G. 
una volta per tutte come "Code”. 

Buon divertimento (a battere il listato 
voi, e a giocare i vostri pargoli, figli, 
fratellini o cuginetti che siano....! e se 
non ne avete a disposizione, procurate- 
veli, come già accennato in preceden¬ 
za). 


Le principali linee 
del programma 

1-2 - Irlizializzazione. 

4-9 - Istruzioni. 

12-25 - Preparazione del campo di gio¬ 
co. 

26 - Lettura delle linee Data. 

27-54 - Routine principale di scomposi¬ 
zione e composizione delle parole. 


56-62 - U.D.G. 

73-84 - Richiesta risposta, riconosci¬ 
mento della stessa, aggiornamento del 
punteggio e dei display. 

84-179 - Data. 

181 - Vittoria! ■ 


Listato 1-11 programma Geo-Race 


10 BORDER 1: CLS 
20 LOAD "pic"SCREEN$ 

30 PAPER 1: INK 1 
40 LOAD "baratro" 

1 DIM s(2): DIM x(2): LET x(1)-75: LET 
x(2)-75: LET s(1)-0: LET s(2)-0 

2 G0 SUB 0056: REM UDG 

3 BORDER 1: PAPER 1: INK 7: CLS 

4 PRINT AT 0,0j"Vuoi le istruzioni (s/n 
) ? ": IF INKEY$-"" THEN GO T0 04 

5 IF INKEY$-»n" OR INKEY$»"N" THEN GO T 
0 012 

6 CLS : PRINT "In questo gioco il compu 
ter vi mostrerà' dei nomi di citta' anagr 
ammati. Cadendo da un trampolino le letter 
e andranno al loro posto una ad una. 

Il primo dei giocatori che indo 
vina il nome della citta' può' interrompe 
re il gioco, ma per conquistare il suo p 
unto dovrà' indicare a quale regione appar 
tiene la citta'." 

7 PRINT "Per ogni risposta giusta si gu 

a dagna un punto, ma attenzione: ogni ris 
posta sbagliata costa unpunto!!" 

8 PRINT "Vincerà' il giocatore che per 

primo fornirà' 17 risposte esatte!! 

": PRINT 

9 PRINT "Il giocatore n.1, che gioca a 
destra, deve usare il tasto <0>": PRINT 

: PRINT "Il giocatore n.2, che gioca a s 
inistra, deve usare invece il tasto <1>." 

10 PRINT : PRINT : PRINT 

11 PRINT FLASH 1 ; AT 20,0 ; "PREMERE UN TA 
STO PER CONTINUARE": PAUSE 0 

12 BORDER Ò: INK 5: PAPER'0: CES : TL0'T~ 

0,8: DRAW 19,0: F0R y-8 TO 103: PLOT 0,y: 
DRAW 7,0: PLOT 13,y: DRAW 7,0: NEXT y 

13 F0R Y-104 T0 110: PLOT 0,y: DRAW 7,0: 


NEXT y 

14 F0R y-8 TO 103 STEP 5: PLOT 8,y: DRAW 
5,0: NEXT y 

15 F0R y-101 T0 103: PLOT 0,y: DRAW 150, 
0: NEXT y 

16 PLOT 20,60: DRAW 70,43 

17 PLOT 20,61: DRAW 69,42: PLOT 20,62: D 
RAW 68,41 

18 INK 4: F0R x-0 TO 255: PLOT x,0: DRAW 
0,RND*3+4: NEXT x 

19 INK 2: FOR y-9 T0 23: PLOT RND#1+40,y 
: DRAW RND*1+190,0: NEXT y 

20 INK 6: PLOT 1,175: DRAW 254,0: DRAW 0 
,-50: DRAW -254,0: DRAW 0,50 

21 PRINT AT 1,1{C){D}(E)(F){G){H}";AT 
4,1;"{C}{D){E}{F}{G}{I}" 

22 PLOT 70,169: DRAW 180,0: DRAW 0,-11: 

DRAW -180,0: DRAW 0,11 

23 PLOT 70,145: DRAW 180,0: DRAW 0,-11: 

DRAW -180,0: DRAW 0,12 

24 INK 7: LET Xl-75: LET nl-3: DIM a(40) 

: DIM c(40) 

25 PRINT INK 0;AT 8,1j" 

";AT 18,4;» » : 

~r W K~T 

26 RANDOMIZE : RESTORE RND*95+85: LET k- 
1: LET pi-19 : READ a$: READ h$: GO SUB 003 
2 

27 FOR t-1 TO 200: LET k$-INKEY$: IF k$< 
>"" THEN LET pl-1160: GO TO 0063' 

28 NEXT t 

29 FOR x-17 TO 1 STEP -1: PRINT AT 8,x;" 

{A}{B)": FOR t-1 TO 2: BEEP .001,RND*10+10 
: NEXT t: PRINT AT 8,x+1;" ": NEXT X: PRIN 
T AT 8,1;» " 

30 PRINT FLASH 1 ;AT 8,1;"premi un tasto" 

: PAUSE 0 

31 GO TO 0025 

—32 GO SUB 0038l GO SUB 0043! GO SUB 004T 

: GO SUB 0051 

33 LET pf-i: LET cb-0 

34 FOR 1-LEN (a$) TO 1 STEP -1 
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Seguito programma Geo-Race 


35 LET cb-cb+1: LET b$-r$(l+2): LET r$-r 
$( TO 1+2): PRINT AT 8,pf-1;" PRINT AT 

8,pfjr$ 

36 LET k$»INKEY$: IF k$<>»" THEN LET pl- 
37: GO TO 0063 

37 LET pf-pf+1: GO SUB 0052: PRINT AT pi 
-1,c(l)+INT ((30-LEN (a$))/2);b$: NEXT 1: 
RETURN 

38 FOR x-1 TO 31: LET a(x)-0: NEXT X: LE 

T LET Ci-0 

39 LET ps-INT (RND#LEN (a$))+1: IF a(ps) 
-1 THEN GO TO 0039 

40 LET a(ps)-1: LET ci-ci+1: LET c(ci)-p 
s: LET r$-r$+a$(ps) 

41 IF ci<LEN (a$) THEN GO TO 0039 

42 LET r$-"{A}{B}"+r$: RETURN 

43 FOR i-1 TO LEN (a$) 

44 PRINT AT 8,i;r$(i+2): BEEP .001,RND*1 
0+10 

45 LET k$-INKEY$: IF k$<>'"' THEN LET pl- 
46: GO TO 0063 

46 NEXT i: RETURN 

47 FOR i-1 TO 19-LEN (r$) 

48 PRINT AT 8,i;r$ 

49 LET k$-INKEY$: IF k$<>'"' THEN LET pl- 
50: GO TO 0063 

50 BEEP .035,RND*10+10: PRINT AT 8,i;" 

": NEXT i: RETURN 

51 PRINT AT 8,1;r$: RETURN 

52 FOR i-8 TO pi-2 

53 LET k$=INKEY$: IF k$<>"" THEN LET pl- 
54: GO TO 0063 

54 PRINT AT i, 19;b$: BEEP .035,RND*10+10 
: PRINT AT 1,19;" ": NEXT i: RETURN 

56 RESTORE 0057: FOR q-97 TO 105: FOR n- 
0 TO 7: READ a: POKE USR CHR$ (q)+n,a: NEX 

T n: NEXT q 

57 DATA 7,4,6,255,255,64,63,0,198,68,200 
,240,240,40,196,6 

58 DATA 28,34,32,118,114,114,124,0,8,8,8 
,28,28,28,28,0 

59 DATA 28,34,34,114,114,114,124,0,28,34 
,32,112,112,114,124,0 

60 DATA 0,0,0,0,0,24,24,0,8,24,8,28,28,2 
8,28,0 

61 DATA 60,2,2,124,112,112,126,0 

62 RETURN 

63 IF k$<>"0" AND k$<>"1" THEN GO TO pi 

64 LET rg-VAL (k$)+1 

65 GU TO' (Crg-1)*òò)+((rg-2)*67)- 

66 PRINT FLASH 1 ;AT 1 ,1{C}{D}{E}{F}{G} 
{H}": GO SUB 0068: PRINT INK 6;AT 1 ,1 ;"CO 
{D}{E}{F}{G}{H}": GO TO 0025 


67 PRINT FLASH 1;AT 4,1;"{C}{D}{E}{F}(G} 
{I}": GO SUB 0068: PRINT INK 6;AT 4,1 ;"{C} 
{D){E){Fj{G){I}": GO TO 0025 

68 INPUT AT 0.0:"IN O.UALE REQìQNK trq 
VA ? »; LINE W$ 

69 FOR t-1 TO LEN (w$): IF CODE (w$(t))> 
96 THEN LET w$(t)-CHR$ (CODE (w$(t))~32) 

70 NEXT t 

71 LET rv-(w$»h$): GO TO ((rv-1)*73)+((r 
v-0)*78) 

73 LET q$«"BRAVO! E' ESATTO!": GO SUB 00 

82 

74 INK 2: FOR x-x(rg) TO x(rg)+10: PLOT 
x,((rg-1)*l60)+((rg-2)*136): DRAW 0,7: BEE 
P .1,x/5: NEXT x: LET rv-O: LET x(rg)-x(rg 
)+10: LET s(rg)-3(rg)+1 

75 IF s(rg)-17 THEN GO TO 0180 

76 RETURN 

78 IF s(rg)-0 THEN LET rv-O: LET q$-"SBA 
GLIATO! RITENTA..": GO SUB 0082: RETURN 

79 INK 0: FOR x-x(rg) TO x(rg)-10 STEP - 
1: PLOT x,((rg-1)«l60)+((rg-2)*136): DRAW 
0,7: BEEP . 1,x/5: NEXT x: LET rv-O: LET x( 
rg)-x(rg)-10: LET 3(rg)-s(rg)-1 

80 LET q$="SBAGLIATO! RITENTA..": GO SUB 
0082: RETURN 

82 PRINT FLASH 1; INK 7;AT 15,(32-LEN (q 
$))/2;q$ 

83 FOR t-1 TO 300: NEXT t: PRINT INK 0 ; A 

T 15,3;" " 

84 RETURN 

85 DATA "TORINO","PIEMONTE" 

86 DATA "ALESSANDRIA","PIEMONTE" 

87 DATA "ASTI","PIEMONTE" 

88 DATA "CUNEO","PIEMONTE" 

89 DATA "NOVARA","PIEMONTE" 

90 DATA "VERCELLI","PIEMONTE" 

91 DATA "AOSTA","VALLE D'AOSTA" 

92 DATA "MILANO","LOMBARDIA" 

93 DATA "COMO","LOMBARDIA" 

94 DATA "SONDRIO","LOMBARDIA" 

95 DATA "VARESE","LOMBARDIA" 

96 DATA "BERGAMO","LOMBARDIA" 

97 DATA "BRESCIA","LOMBARDIA" 

98 DATA "PAVIA","LOMBARDIA" 

99 DATA "CREMONA","LOMBARDIA" 

100 DATA "MANTOVA","LOMBARDIA" 

101 DATA "GENOVA","LIGURIA" 

102 DATA "SAVONA","LIGURIA" 

103 DATA "IMPERIA","LIGURIA" 

104 DATA "LA SPEZIA","LIGURIA" 

-T05' DATA "VENEZIA","VENETO"- 

106 DATA "BELLUNO","VENETO" 

107 DATA "PADOVA","VENETO" 

108 DATA "ROVIGO","VENETO" 
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109 

DATA 

110 

DATA 

111 

DATA 

112 

DATA 

113 

DATA 

114 

DATA 

n 


115 

DATA 

116 

DATA 

n 


117 

DATA 

IA" 


118 

DATA 

119 

DATA 

120 

DATA 

121 

DATA 

122 

DATA 

123 

DATA 

124 

DATA 

125 

DATA 

126 

DATA 

127 

DATA 

128 

DATA 

129 

DATA 

130 

DATA 

131 

DATA 

132 

DATA 

133 

DATA 

134 

DATA 

135 

DATA 

136 

DATA 

137 

DATA 

138 

DATA 

139 

DATA 

140 

DATA 

141 

DATA 

142 

DATA 

143 

DATA 

144 

DATA 

145 

DATA 

146 

DATA 

147 

DATA 

148 

DATA 

149 

DATA 

150 

DATA 

151 

DATA 

152 

DATA 

153 

DATA 

155 

DATA 

156 

DATA 

157 

DATA 1 


"PORDENONE","FRIULI VENEZIA GIUL 

"BOLOGNA","EMILIA ROMAGNA" 
"FERRARA","EMILIA ROMAGNA" 

"PORLI'"."EMILIA ROMAGNA" 
"MODENA","EMILIA ROMAGNA" 
"PARMA","EMILIA ROMAGNA" 
"PIACENZA","EMILIA ROMAGNA" 
"RAVENNA","EMILIA ROMAGNA" 
"REGGIO EMILIA»,"EMILIA ROMAGNA" 

"FIRENZE»,"TOSCANA" 

"AREZZO","TOSCANA» 

"GROSSETO","TOSCANA" 

"LIVORNO","TOSCANA" 

"LUCCA","TOSCANA" 

"MASSA CARRARA","TOSCANA" 

"PISA","TOSCANA» 

"PISTOIA","TOSCANA" 

"SIENA","TOSCANA" 

"ANCONA","MARCHE" 

"ASCOLI PICENO","MARCHE" 
"MACERATA","MARCHE» 

"PESARO","MARCHE" 

"PERUGIA","UMBRIA" 

"TERNI","UMBRIA" 

"ROMA","LAZIO" 

"FROSINONE","LAZIO" 

"LATINA","LAZIO" 

"RIETI"."LAZIO" 

"VITERBO","LAZIO" 

"L'AQUILA","ABRUZZO" 

"CHIETI","ABRUZZO" 

"PESCARA","ABRUZZO" 

"TERAMO","ABRUZZO" 

"CAMPOBASSO","MOLISE" 

"ISERNIA","MOLISE" 

"NAPOLI","CAMPANIA" 

"AVELLINO","CAMPANIA" 

"BEN EVENTO", "CAMPANI/ 

"GASERTA","CAMPANIA" 

"SALERNO","CAMPANIA" 

"BARI","PUGLIA" 


158 DATA "BRINDISI","PUGLIA" 

159 DATA "FOGGIA","PUGLIA" 

160 DATA "LECCE","PUGLIA" 

161 DATA "TARANTO","PUGLIA" 

162 DATA "POTENZA","BASILICATA" 

163 DATA "MATERA","BASILICATA" 

164 DATA "CATANZARO","CALABRIA" 

165 DATA "COSENZA","CALABRIA" 

166 DATA "REGGIO CALABRIA","CALABRIA" 

167 DATA "PALERMO","SICILIA" 

168 DATA "AGRIGENTO","SICILIA" 

169 DATA "CALTANISSETTA","SICILIA" 

170 DATA "CATANIA","SICILIA" 

171 DATA "ENNA","SICILIA" 

172 DATA "MESSINA","SICILIA" 

173 DATA "RAGUSA","SICILIA" 

174 DATA "SIRACUSA","SICILIA" 

175 DATA "TRAPANI","SICILIA" 

176 DATA "CAGLIARI","SARDEGNA" 

177 DATA "SASSARI","SARDEGNA" 

178 DATA "NUORO","SARDEGNA" 

179 DATA "ORISTANO","SARDEGNA" 

181 FOR t-1 TO 7: BEEP .1,10: NEXT t 

182 PAPER 7: BORDER 7: INK 1: CLS 

183 PRINT AT 1,0;"MOLTO BENE1 IL GIOCATOR 
E NUMERO "jrg;" HA VINTO LA PARTITA 1" 

184 PRINT AT 4,0;"NE VOLETE FARE UN'ALTRA 
(S/N) ?" 

185 IF INKEY$-"3" THEN RUN 

186 IF INKEY$»"n" THEN STOP 

187 GO TO 0T84 
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Routine 2 
per Spectrum 

Una copiosa raccolta di effetti 
per il vostro computer 

dì Ivano Parbuono 


C ome già descritto nella prima 
raccolta di Routine in prece¬ 
denza pubblicata (Personal 
Software n. 22), dalla neces¬ 
sità appunto di avere sempre a portata 
di mano una serie di effetti particolari e 
piccole minhroutine dalla facile consul¬ 
tazione, abbiamo creduto opportuno 
creare questa seconda raccolta che dif¬ 
ferisce completamente dalla prima. 

In alcuni casi si va ad agire per mezzo 
dei Data e dei Poke direttamente nelle 
locazioni di memoria del computer 
creando così quegli effetti che sono pro¬ 
pri del linguaggio macchina e che la 
maggior parte delle volte era possibile 
creare solamente caricandoli da cas¬ 
sette preregistrate. 

Iniziamo l'analisi dalla riga 100 ove co¬ 
mincia una routine di "scritte in rilievo 
con alternanza di colori". 

Naturalmente si può scrivere tutto 
quello che si desidera, in questo caso 
come in altre routine successive è stato 
messo il nome dell’autore ma solo a 
carattere puramente indicativo. Alla li¬ 


nea 120 inizia un ciclo che termina alla 
linea 185 e permette alle scritte realizza¬ 
te attraverso i Plot e Draw di spostarsi a 
destra da 1 a 8 con un salto di 1,7 ed 
ogni volta realizzato con un colore di¬ 
verso dando così la sensazione di una 
scritta in rilievo. Dalla linea 192 alla linea 


280 continua la seconda parte della 
scritta in rilievo riempiendo così tutto lo 
schermo per dare poi la dimostrazione 
della seconda routine che inizia alla li¬ 
nea 350 e termina alla linea 430. Ma 
vediamo ora linea per linea anche que¬ 
sta routine, che crea lo scroll a sinistra 


Listato 1 - Il programma con tutte le routine presentate. 


80 REM *************** ******** 

82 REM *********************** 
84. REM ** ROUTINE 2«* 
86 REM «O******************** 

83 REM *********************** 
100 REM scritta in rilievo con 

alternanza di colori 
120 B0RDER 6: rOR P-l TO 8 STEP 
1.7: INK (RND#6): PRUSE 5 
150 PLOT 24+P,135-P; DRRU 0,24: 
DRRU 18,0: DRRU 0,-12: DRRU -16 
,0: DRRU 16,-12 

155 PLOT 56+P,136-P: DRRU 0,24: 
DRRU 16,0: DRRU 0,-24: DRRU -16 
, 0 

160 PLOT 88 +P,160-P: DRRU 0,-24 
: DRRU 16,0: DRRU 0,24 
165 PLOT 122+P,160-P: DRRU 26,0 
: PLOT 138+P,160-P: DRRU 0,-24 
^170 PLOT 168+P,160-P: DRRU 0,-2 

175 PLOT 184+P,136-P: DRRU 0,24 
: DRRU 16,-24: DRRU 0,24 
180 PLOT 232+P,136-P: DRRU -16, 
0: DRRU 0,12: DRRU 10,0: DRRU -1 
0,0: DRRU 0,12: DRRU 16,0 
185 NEXT P 

190 INK 2: PRINT RT 11,2; FLASH 
-14—-8RIGH T 1 j --RERL IZZRT-R OR IU RN 


— *-7 — t 

O PARBUONO": FLASH 0 
192 REM seconda parte del video 
,segue scritte in rilievo con al 
ternanza di colori 
195 POR P=1 TO 6 STEP 1.6: INK 


(RND*6): PRUSE 5 
200 PLOT 8 +P,16-P: DRRU 0,16 
205 PLOT 15+P,32-P: DRRU 4,-16: 
DRRU 4,16 

210 PLOT 31+P,16-P: DRRU 4,16: 
DRRU 4,-16: PLOT 35+P,24-P: DRRU 
4,0 

215 PLOT 48+P,16-P: DRRU 0,16: 
DRRU 8,-16: DRRU 0,16 
220 PLOT 64+P,16-P: DRRU 0,16: 
DRRU 4,0: DRRU 0,-16: DRRU -4,0 
225 PLOT 128+P,16-P: DRRU 0,16: 
DRRU 8,0: DRRU 0,-8: DRRU -8,0 
230 PLOT 144 +P,16-P; DRRU 4,16; 
DRRU 4,-16: PLOT 148+P,24-P: DR 
RU 4,0 

235 PLOT 160 +P,16-P: DRRU 0,16: 
DRRU 8,0: DRRU 0,-8: DRRU -8,0: 
DRRU 8,-8 

240 PLOT 176 +P,16-P: DRRU 0,16: 
DRRU 6,0: DRRU 0,-6: DRRU -3,-2 
: DRRU -5,0; DRRU 5,0: DRRU 3,-2 
: DRRU 0,-6: DRRU -8,0 
245 PLOT 192+P,32-P: DRRU 0,-16 
: DRRU 8,0: DRRU 0,16 
250 PLOT 208 +P,16-P: DRRU 0,16: 
DRRU 8,0: DRRU 0,-16: DRRU -8,0 
255 PLOT 224 +P,16-P: DRRU 0,16: 
DRRU 8, -16: DRRU 0,16 
260 PLOT 240+P,16-P: DRRU 0,16: 
- D RR U 8 , 8: D RR U -8 , - 1 6: D RRU—4hr0- 

280 NEXT P 
300 PRUSE 200 

350 REM routine per io SCROLL a 
sinistra con rigenerazione di c 
a ra t te r i 
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con rigenerazione continua di caratteri. 
La linea 390 con un Gosub ci manda 
alla 410 dove troviamo un Restore che 
va a leggere i Data di linea 430 per 
tornare poi alla seconda parte di linea 
410 dove il For R = 0 To 17 colloca per 
mezzo del Poke 61000 alle locazioni 
successive i 17 Data in precedenza letti 
e dopo ciò per mezzo di un Return ritor¬ 


na alla linea 400 dove il ciclo presente 
permette per 56 volte lo scroll verso sini¬ 
stra con la rigenerazione dei caratteri 
intervallata da un Beep e un Pause in 
funzione Rnd. L'istruzione Let A = Usr 
61000 ha il compito di leggere tutti i Data 
registrati in precedenza alle locazioni 
successive alla 61000 sino a trovare il 
Data 201 che corrisponde al Return. 


L'effetto di movimento in alto con so¬ 
noro si può ottenere con la routine che 
inizia alla linea 500 con assegnazione di 
valori alla linea 510 ed inizio del loop per 
il riempimento totale del video alla 520. 
Alla linea 530 si può scrivere ciò che si 
desidera, mentre la linea 540 cambia 
ogni volta i valori in precedenza asse¬ 
gnati per terminare poi con un Beep del 


Sagulto listato 1. 


390 GO SUB 4.10 

400 FOR lui TO 56: BEEP .05, (RN 
0*01 : LET RaUSR 61000: PRUSE (RN 
0*101+1: NEXT I 

405 PRUSE 200: CLS : PRPER 7: G 
0 TO 500 

410 RESTORE 430: FOR R»0 TO 17: 
RERO COdfi : POKE 61000+R,COd«: N 
EXT R: RETURN 

430 ORTR 33,265,©7,14,32,167,20 
3,6^43,13,32,250,62,63,16©,32,24 

é00 REM effitto Movimento in al 
to con sonoro 
510 LET P»2: LET 1=7 
520 FOR S-0 TO 21 
530 PRINT RT S,8; INK P; PRPER 
I; FLRSH 1;"PRRBUONO IURNO" 

543 LET U=P: LET Pai: LET I»U: 

NEXT S 

550 FOR T*0 T0 25: BEEP 0.5,3 

560 NEXT T _ 

570 PRU5E 200: CLS : GO TO 600 
600 REM creazione di un grafico 
per cornice 

610 INK 0: FOR I-PI-PI TO URL " 
246" STEP URL "6": PLOT I,URL "1 
60": DRRU URL "7",URL "7": PLOT 
I,URL "167": ORRU URL "7",URL "- 
7": NEXT I 

620 FOR I-PI-PI TO URL "248" ST 
EP URL "8": PLOT I,URL "0": DRRU 
URL “r'.VRL u 7": PLOT I,UAL "7" 

: DRRU URL "7",URL "-7": NEXT I 
630 PRUSE 200: PRINT RT 12,5;"C 
ORNICE PER DOMRNDE" 

650 PRUSE 100: BORDER 7: PRPER 
7: CLS : GO TO 700 
700 REM routine per La creazion 
e dell'effetto terremoto 
705 PRINT RT 21,3;"EFFETTO TERR 
EMOTO" 

710 PLOT 24,88: DRRU 56,46: DRR 
U 56,-46: PLOT 24,88: DRRU 56,40 
: DRRU 56,-40: INK 3: PLOT 48,10 
4; DRRU 65,0: DRRU 0,-88: DRRU - 
65,0: DRRU 0,68 

712 PLOT 72,16: DRRU 0,32: DRRU 
16,0: DRRU 0,-32 

714 PLOT 32,14: DRRU 136,0: DRR 
T4-5-7-10 r- DRRU- 4670-PLOT-58,68: 

DRRU 13,0: DRRU 0,-20: DRRU -13, 
0: DRRU 0,20: PLOT 103,88: DRRU 
-13,0: DRRU 0,-20: DRRU 13,0: DR 
RU 0,20 

716 PRINT RT 20,24;;RT 19,24 


? " ;RT 18,24;"i";RT 17,24;"1";R 
6,24;"É";AT 15,24;"É";RT 14,2 
4; ; RT 13,24; ; RT Ts,23;"V; 

RT 14,22; "V;RT 14,25; V" ; RT 13, 
26; "| "; RT 12,23; "J";RT 12,25; V" 
718 PRINT RT 11,23; "|";RT 11,25 
; "1"; RT 10 , 22 ; "S";RT 10,26; V" 
720 G0 SUB 770 

760 FOR I»1 TO 25: LET RaUSR 61 
100: PRUSE (RND*10)+1: NEXT I 
765 PRUSE 200: CLS : GO TO 800 
770 RESTORE 780: FOR Ps0 TO 76: 
READ code: POKE 61100+P,code : N 
EXT P: RETURN 

780 DRTR 58,0,64,245,58,255,90, 
245,58,255,87,245,33,0,64,84,93, 
1,254.26,35,237,176,251,116,118, 
118,118,58,255,87,50,254,87,33,2 
55,90,84,93,1,2S3,26,43.43 
785 DRTR 237,184»25Ì,1Ì8,118,11 
8,118,118,118,33,0,64,84,93,1,25 
4,26,35,237,176,241,50,255,87,24 
1,50,255,90,241,50,0,64,201 
2010 BORDER 7: PAPER 7 
2015 REM creazione della scritta 
ROUTINE in rilievo 
2020 FOR pai TO 8: PRUSE 10 
2030 PLOT 16+P,72-P: DRRU 0,24: 
DRRU 16,0: DRRU 0,-12: DRRU -16, 
0; DRRU 16,-12 

2040 PLOT 48+P,72-P: DRRU 0,24: 
DRRU 16,0: DRRU 0,-24: DRRU -16, 
0 

2050 PLOT 80+P.95-P: DRRU 0,-24: 

ORRU 16,0: DRRU 0,24 
2060 PLOT 115 +P,95-P: DRRU 26,0: 

PLOT 128+P,95-P: DRRU 0,-24 
2070 PLOT 160+P,95-P: DRRU 0,-24 
2080 PLOT 176+P,72-P: DRRU 0,24: 

DRRU 16,-24: DRRU 0,24 
2090 PLOT 224+P,72-P: DRRU -16,0 
: DRRU 0,12: DRRU 10,0: DRRU -10 
,0: DRRU 0,12: DRRU 16,0 
2095 NEXT P: GO SUB 2110 
2100 REM routine per la creazion 
e dello SCROLL LATERALE CON RIEN 
TRO NEGRTIUO E POSITIUO 
2102 FOR 1=1 TO 512: LET RaUSR 6 
1200: NEXT I 

2105 PRUSE 200: GO TO 2200 
2110 RESTORE 2130: FOR R=0 TO 31 
: READ code : POKE 61200+R,code : 
NEXT R: RETURN 


2130 DRTR 33,255,87,6,192,197,22 
9,221,225,221,126,225,7,0,63,6,3 
2,203,22,43,16,251,193,16,236,20 
1,241,43,193,16,230,201 
2310 GO SUB 2330 
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loop di linea 550. Creazione di un grafi¬ 
co da usare tipo cornice: questa routine 
che va da linea 600 e termina alla linea 
650 permette appunto la creazione di 
due linee intrecciate ad altezza ed am¬ 
piezza desiderata sullo schermo; si può 
modificare l'altezza, la lunghezza e 
l'ampiezza intervenendo alla linea 610. 
In ogni caso qualsiasi dato venga cam¬ 


biato crea una cornice totalmente diver¬ 
sa. Questo discorso vale anche per la 
linea 620 che completa questa piccola 
routine. Alla linea 700 inizia un'altra rou¬ 
tine per creare “l'effetto terremoto”, alla 
linea 710 è stato assegnato un grafico 
da rappresentare che servirà per la di¬ 
mostrazione di questa routine. Alla linea 
720 è stato assegnato un Gosub 770 che 


va a leggere i 76 Data successivi, quindi 
troviamo il ciclo che assegna i Data in 
precedenza letti alle locazioni che van¬ 
no dalla 61100 alla 61176. Terminata 
l'assegnazione di questi dati in memo¬ 
ria, il programma ci rimanda alla linea 
760 ove un ulteriore ciclo va a leggere in 
memoria tutti i 76 Data in precedenza 
memorizzati creando così l'effetto che 


Seguilo listato 1. 


2315 REM routine per le creazion 
e delio SCROLL VELOCE R SINISTRAI 
CON RIENTRO 

2320 F0R 1*1 TO 255: LET R*USR 6 
1350: NEXT I 
2325 CO TO 2400 

2330 RESTORE 2340: FOR R*0 TO 24 
: RERD COd«: POKE 613S0+R,code : 
NEXT R: RETURN 

2340_DRTR 5^64,17^0,72^213,225,3 
5 


5 él 9 IéhlhÉs 2 !é a Él6^i‘ 3 ' 119 - a 

2425 PRU5E 200: PRPER 0 CLS : G 
O TO 2500 

3100 REM creazione di scritte in 
rilievo coperte da PRPER 0 per 
la creazione di copertine 
3120 F0R P=1 TO 8 STEP 1.7: INK 
0 

3150 PLOT 24 +P,136-P: DRRU 0,24: 
DRRU 16,0: DRRU 0,-12: DRRU -16 
,0: DRRU 16,-12 
3155 PLOT 56+P,136-P: DRRU 0 
DRRU 16,0: DRRU 0,-24: DRRU 
, 0 

3160 PLOT S8+P,160-P: DRRU 0 
: DRRU 16,0; DRRU 0,24 
3165 PLOT 122+P,160-P: DRRU 26,0 
PLOT 136+P,160-P: DRRU 0,-24 
3170 PLOT 168+P,160-P: DRRU 0,-2 

3175 PLOT 184+P,136-P: DRRU 0,24 


24: 

-16 

-24 


DRRU 16,-24 


DRRU 


0,24 


3180 PLOT 232+P,136-P; DRRU -16, 
0: DRRU 0,12: DRRU 10,0: DRRU -1 
0,8: DRRU 0,12: DRRU 16,0 
3185 NEXT P 

3190 PRINT RT 11,2; FLRSH 1; BRI 
GHT 1;"RERLIZZRTR ÓR IURN0 PRRBU 
0N0": FLASH 0 

3192 REM segue creazione di seri 
tte in rilievo coperte da PRPER 
0 per la creazione di copertine 
3195 FOR P*1 TO 6 STEP 1.3: INK 
0 

3200 PLOT 8+P,16-P: DRRU 0,16 
3205 PLOT 15 +P,32-P: DRRU 4,-16: 
DRRU 4,16 

3210 PLOT 31+P,16-P: DRRU 4,16: 
DRRU 4,-16: PLOT 35+P,24-P: DRRU 
-4- r O- 


3215 PLOT 48 +P,16-P: DRRU 0,16: 
DRRU 8,-16; DRRU 0,16 
3220 PLOT 64 +P,16-P; DRRU 0,16: 
DRRU 4,0: DRRU 0,-16: DRRU -4,0 
3225 PLOT 128 +P , 16-P: DRRU 0,16: 


DRRU 8,0: DRRU 0,-8: DRRU -8,0 
3230 PLOT 144+P,16-P: DRRU 4,16: 

DRRU 4,-16: PLOT 148+P,24-P: DR 
RU 4,0 

3235 PLOT 160 +P,16-P: DRRU 0,16; 
DRRU 8,0: DRRU 0,-8: DRRU -8,0 
DRRU 8,-8 

3240 PLOT 176+P,16-P: DRRU 0,16: 

DRRU 8,0: DRRU 0,-6: DRRU -3,-2 
: DRRU -5,0: DRRU 5,0: DRRU 3,-2 
: DRRU 0,-6: DRRU -8,0 
3245 PLOT 192 +P,32-P: DRRU 0,-16 
DRRU 8,0: DRRU 0,16 
3250 PLOT 208+P,16-P: DRRU 0,16: 

DRRU 8,0: DRRU 0,-16 DRRU -8,0 
3255 PLOT 224 +P,16-P: DRRU 0,16: 

DRRU 8,-16: DRRU 0,16 
3260 PLOT 240 +P,16-P: DRRU 0,16: 

DRRU 8,0: DRRU 0,-16: DRRU -8,0 
3280 NEXT P 

3290 PRINT «0;"PREMI SPRCE PER C 
ONTINURRE" 

3300 PRUSE 0 

3350 REM routine che permette di 
scoprire la pagina grafica in p 
recedenza realizzata 
3450 FOR T*0 TO 175: PLOT 2,174- 
T: DRRU INK 7; OVER l;252,0 
3460 NEXT T: INK 7 
3500 REM routine che permette lo 
scorrimento veloce verso destra 
di 1/3 dello schermo 
3510 GO SUB 3525 

3520 FOR 1*1 TO 255: LET fl*USR 6 
1300 : NE XT -I- 

3522 GO TO 3600 

3525 RESTORE 3530: FOR R«0 TO 24 
: RERD code: POKE 61300+R,code : 
NEXT R: RETURN 

3530 DRTR 6,64,17,255,71,213,225 
,43,197,1,31,0,26,237,184,35,119 
,0,43,43,27,193,16,240,201 
3600 REM routine che permette io 
scorrimento veloce verso sinist 
ra di 1/3 dello schermo 
3610 GO SUB 3630 

3620 FOR Irl TO 255: LET R-USR 6 
1400: NEXT I 
3625 GO TO 3900 

3630 RESTORE 3640: FOR R=0 TO 24 
: RERD code : POKE 61400+R,code : 
NEXT R: RETURN 

^64^»- D R T R 6x647- 1 - 7. 8,64 r 213 , 22 5 ,3 

5,197,1,31,0,26,237,176,43,119,0 
,35,35,19,193,16,240,201 
3900 PRUSE 200: CLS : BRIGHT 1: 
PRINT RT 11,13;"F I N E" 

3910 PRUSE 0 
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abbiamo chiamato terremoto. 

La successiva routine chiamata Crea¬ 
zione di scritte in rilievo varia da quella 
iniziale perché è stato tolto il salto dan¬ 
do così un effetto di un tutt'uno. I 32 
Data della linea 2130 vengono collocati 
alla locazione di memoria che va dalla 
61200 alla 61231; il programma ritorna 
alla linea 2102, dove il loop For I = 1 To 
512 permette lo scroll con rientro negati¬ 
vo e positivo a sinistra a seconda dei 
valori assegnati nel ciclo e chiaramente 
si può accorciare o prolungare lo scroll. 
Terminata questa dimostrazione ne se¬ 
gue subito un'altra realizzata con le 
stesse caratteristiche, ma variando na¬ 
turalmente i Data e l’assegnazione degli 
stessi a differenti locazioni di memoria 
che per questa routine sono stati asse¬ 
gnati a partire dal 61350 al 61374 (scroll 
veloce a sinistra con rientro). La durata 
dello scroll è determinata dalla linea 
2320 con il loop For I = 1 To 255. La 
routine successiva si divide in due parti: 
la prima crea una pagina grafica a pia¬ 
cere (3100-3280) per mezzo di Plot e 
Draw. Sono state realizzate delle scritte 
ma potrebbero essere anche disegni, in 
pratica tutto ciò che si vuole, l'importan¬ 
te che all'inizio si inserisca l'istruzione 
Paper 0. Quando il computer ha creato 
la scritta, in questo caso in rilievo (come 
spiegato nella prima routine di questa 
raccolta) e dopo aver premuto la barra 
spaziatrice entrerà in azione la parte più 
importante di questa routine, cioè le li¬ 


nee che vanno dalla 3450 alla 3460 in 
pratica il loop che permette di scoprire il 
video lasciando intatto ciò che in prece¬ 
denza era stato realizzato. For T = 0 To 
175 stabilisce la quantità di schermo da 
scoprire, il Plot indica da dove deve ini¬ 
ziare ad essere scoperto il video e il 
Draw la quantità in orizzontale dello 
schermo da scoprire. Naturalmente il 
comando Ink può essere del colore desi¬ 
derato. 

Ma la cosa più importante e forse an¬ 
che più interessante è quella di provare 
a cambiare i valori di linea 3450 a pro¬ 
prio piacere e si vedranno delle cose 


sempre diverse e molto interessanti che 
potranno essere magari utili per qual¬ 
che altra realizzazione (consigliamo 
proprio, per comprendere in pieno que¬ 
sta routine di fare degli esperimenti). 
Passiamo ora alle due ultime routine di 
questa raccolta: la prima permette lo 
“scorrimento veloce verso destra di 1/3 
dello schermo" (3510-3530). Essa, in 
pratica, agisce come tutte le altre prece¬ 
dentemente descritte; la linea 3520, per 
mezzo del ciclo For I = 1 To 255, stabili¬ 
sce la quantità di scorrimento che si 
desidera per questa routine. 

L'ultima permette lo “scorrimento velo- 



Flgura 1 - 
Rappresentazione 
In rilievo di scritte. 






à 

pom 

Figura 2 • 
Rappresentazione 
grafica di scroll 
laterale 

con rientro negativo. 





ce verso sinistra di 1/3 dello schermo”: 
qui variano solamente alcuni Data di 
linea 3640 e il numero di partenza della 
loro assegnazione in memoria, che in 
questo caso vanno dalla locazione 
61400 alla 61424. 

Proprio in relazione all'assegnazione 
dei Data in memoria si deve dire che non 
è assolutamente tassativo assegnarli 
così come li abbiamo collocati, ma si 
possono dare delle locazioni diverse: ad 
esempio, invece di 61400 si potrebbe 
partire benissimo dal 31000 oppure dal’ 
62500, cioè in base alla disponibilità che 
si ha nel programma nel quale si vuole 
i ns e rir e l a . ro u t i n e ch e c i i nt e r essa . ■ 
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Q uesto programma vi permet¬ 
terà di disegnare in alta riso¬ 
luzione mediante il joystick o, 
per chi ne fosse sprovvisto, 
con i 4 tasti cursore sfruttando tutte le 
istruzioni grafiche del BASIC MSX, ri¬ 
chiamabili mediante i tasti funzione del 
computer. 

Il programma lungo 8 Kbyte, fa un am¬ 
pio uso degli sprite per poter visualizza¬ 
re i vari cursori utilizzati nel programma 
senza pericolo di "sporcare'' il disegno 
sottostante. Durante l'esecuzione del 
programma numerosi messaggi vi gui¬ 
deranno nelle varie fasi della stesura del 
disegno. Questi messaggi appariranno 
nella parte bassa dello schermo, occu¬ 
pando gli ultimi 10 pixel dello schermo: 
l’area utile per il disegno sarà quindi di 
181 x 255 pixel. 

Oltre alle funzioni Paint, Box, Ellisse 
(con controllo del raggio e della eccen¬ 
tricità), troverete l'istruzione che vi darà 
le coordinate dell'ultimo punto plottato 
o della posizione del cursore. 

Durante l'esecuzione del disegno po¬ 
tranno essere utilizzati tutti i colori di¬ 
sponibili oltre a una potente routine di 
cancellazione. 

Il programma è scritto interamente in 
BASIC, ma è strutturato in modo da ave¬ 
re una alta velocità di esecuzione. 
Questo consentirà a chi ne sentisse la 
necessità, di aggiungere al programma 
delle istruzioni o sottoprogrammi per 
renderlo più adatto alle varie esigenze di 
utilizzo. 

Anche in questa configurazione, il pro¬ 
gramma risulta comunque sufficiente- 
mente completo e pratico, soprattutto 

se utilizzerete un joystick con due pul¬ 
santi di "fuoco” indipendenti,come pre¬ 
scritto dallo standard MSX (il joystick 
andrà collegato alla porta 1 del compu¬ 
ter). 

Se volete mettere alla prova la vostra 
fantasia e capacità nella “computer 
art", non vi resta che cominciare a digi¬ 
tare il (lungo) programma: la fatica vi 
sarà senz’altro ricompensata con ore di 
divertimento! 

Descrizione del programma 

Dopo la schermata introduttiva di pre¬ 
sentazione, vi verrà richiesto il colore 
dello sfondo della prima traccia e del 
bordo del piano del disegno. Effettuata 
la scelta, i colori della schermata diven¬ 
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teranno quelli da voi richiesti e, se la 
combinazione è di vostro gradimento, il 
programma passerà al modo grafico; in 
caso contrario vi verrà di nuovo richie¬ 
sta la scelta dei colori (ovviamente il 
colore del bordo non apparirà sullo 
schermo poiché siamo nel modo testo). 

Entrati del modo grafico, i comandi 
passeranno al joystick collegato alla 
porta 1 o ai tasti cursori del computer: in 
questo secondo caso i due tasti di “fuo¬ 
co" indipendenti dal joystick diventano 
la barra spazio e il tasto "z" (assicurate¬ 
vi che il tasto Caps Lock non sia inseri¬ 
to). Per le funzioni grafiche ottenibili dal 
programma useremo i tasti funzione (da 
uno a nove). All’inizio sullo schermo 
comparirà una freccia e una scritta nel¬ 
la parte bassa dello schermo che vi co¬ 
municherà lo stato del sistema e il colore 
che si sta utilizzando, rappresentato da 
una "faccina" colorata. Attenzione per¬ 
chè non sempre il colore della traccia 
corrisponderà a quello del cursore per 
motivi di visibilità di quest’ultimo. Con la 
freccia siamo nel modo posizionamen¬ 
to: potremo nuoverci senza tracciare 
nessuna linea e, poiché la freccia è uno 
sprite, senza sporcare il disegno sotto¬ 
state. Una volta posizionati, premendo 
un pulsante del joystick e il tasto "z", 
passeremo al modo traccia, come indi¬ 
cato dalla scrittura bassa e potremo 
incominciare a disegnare. Ci muovere- 
mo, tracciando il disegno, nelle otto di¬ 
rezioni della manopola, ricordando che 
se utilizziamo i tasti cursore, dovremo 
premere due tasti contemporaneamen¬ 
te per muoverci in diagonale (esempio: 
per muoverci in diagonale in direzione 
nord-est premeremo i tasti con la freccia 
verso l’alto e verso destra contempora- 













Disegnatore per MSX 



neamente). Per ritornare al modo posi¬ 
zionamento premere l'altro pulsante di 
"fuoco" del joystick o la barra spazio. 
Per il disegno abbiamo a disposizione 
nove utility, ciascuna richiamabile me¬ 
diante i tasti funzione: vediamo a cosa 
servono e come funzionano. 

Tasto FI - Traccia una linea con inclina¬ 
zione a piacere. Questo comando è ri¬ 
sultato necessario perché con il joystick 
possiamo tracciare linee con inclinazio¬ 
ne fissa di 45°. Una volta premuto que¬ 
sto tasto, comparirà sullo schermo uno 
sprite rettangolare con un pixel acceso 
internamente. Spostiamoci nella posi¬ 



zione in cui vogliamo avere il secondo 
estremo del segmento, utilizzando come 
riferimento il punto interno al rettango¬ 
lo. 

Premendo il pulsante del joystick o la 
barra spaziatrice verrà tracciato il seg¬ 
mento. È possibile, volendo, eseguire 
tutto il disegno utilizzando questa fun¬ 
zione, senza tracciare nessuna linea in 
modo diretto: l'unico limite sarà posto 
dalla difficoltà di tracciare linee curve 
(che in questo programma dovranno 
essere approssimate a delle spezzate 
poligonali). 

Tasto F2 - Scelta dei colori da 1 a 9. 
Premendo F2 comparirà sulla riga dedi¬ 
cata ai messaggi la serie di colori che 
vanno da 1 a 9: sarà sufficiente premere 
il tasto corrispondente al numero del 
colore scelto per cambiarlo. 

Tasto F3 - Colori da 10 a 15: premere il 
tasto corrispondente all'unità che ca¬ 
ratterizza il colore che si vuole utilizzare 
(esempio: colore 15, premi il tasto 5). 
Tasto F4 - Cancellazione. Questo co¬ 
mando ha una duplice funzione; quella 
di cancellare delle linee sullo schermo 
come una normale gomma e quella di 
disegnare con il colore del fondo su 
aree di altro colore (per esempio riempi¬ 
te con l’istruzione Paint). Sullo schermo 
comparirà uno sprite a forma di croce 
con all’interno il pixel di riferimento. 
Questa croce possiamo posizionarla in 
qualunque punto del video senza peri¬ 
colo di cancellare il disegno sottostante: 
la cancellazione avverrà infatti se con¬ 
temporaneamente al movimento del 
joystick terremo premuto un pulsante di 
"fuoco" o la barra spaziatrice. Con l'al¬ 
tro pulsante della manopola o col tasto 
“z" torneremo al modo posizionamen¬ 
to. 

Tasto F5 - Disegno di un cerchio o di 
una ellisse. Appena premuto questo ta¬ 
sto comparirà sullo schermo un piccolo 
cerchio che avrà come centro l’ultima 
posizione assunta dal cursore, e una 
croce simile a quella usata per cancella¬ 
re. Muovendo il joystick ci posizionere¬ 
mo nel punto in cui dovrà cadere l'estre¬ 
mo del semiasse; fatta questa operazio- 
ne premiamo un pulsante della mano- 

pola o lo spazio e ci verrà richiesta l’ec¬ 
centricità: premendo 1 il computer trac- 
cerà un cerchio con un numero compre¬ 
so tra 2 e 5 avremo ellissi con asse 
orizzontale maggiore dell’asse verticale, 
il contrario per numeri compresi tra 6 e 0. 


Tracciata la curva torneremo al modo 
posizionamento. Per motivi di praticità, 
il range dei valori che danno l'eccentri¬ 
cità è limitato: chi volesse può modifica¬ 
re i valori nel listato per cambiare o 
ampliare il range. 

Tasto F6 - Dà le coordinate del cursore. 
Dopo aver premuto questo tasto appa¬ 
rirà sulla riga riservata ai messaggi l’a¬ 
scissa e l’ordinata del cursore, sia che ci 
si trovi nel modo posizionamento che 
nel modo traccia. È utile usare questa 
funzione prima di tracciare un cerchio in 
modo da conoscere esattamente le 
coordinate del centro. 

Tasto F7 - Disegna rettangoli. Sullo 
schermo apparirà lo sprite già utilizzato 
per tracciare le linee (FI) oltre a un pixel 
indicante la posizione di uno dei vertici 
del rettangolo. Utilizzando la manopola 
(o i cursori), sposteremo il cursore nel 
punto in cui desideriamo l'altro estremo 
della diagonale del rettangolo: premen¬ 
do uno dei pulsanti del joystick o la 
barra spaziatrice, verrà visualizzato il 
rettangolo. Anche qui, come in tutti gli 
altri casi, le segnalazioni che appariran¬ 
no sulla parte bassa del video aiuteran¬ 
no a eseguire correttamente le opera¬ 
zioni. 

Testo F8 - Riempimento di una superfi¬ 
cie (Paint). Questa funzione attiva l'i¬ 
struzione Paint del BASIC MSX. 

Vediamo come si deve procedere per 
utilizzarla correttamente: mettiamoci nel 
modo posizionamento e portiamo la 
freccia all’interno della figura che vo- 
gliam oolorare; controlliamo che i confi¬ 
ni della figura siano perfettamente chiu¬ 
si: anche un’apertura di un solo pixel” 
potrebbe causare il riempimento di tutto 

10 schermo, cancellando in tale modo 
tutto il disegno. Poiché l'istruzione Paint 
riconosce come frontiera solo i perimetri 
dello stesso colore di quello utilizzato 
per colorare, controllate che il colore 
della frontiera della figura sia lo stesso 
della "faccina” sulla riga dei messaggi. 
Fatti questi controlli, potete procedere 
al riempimento. 

Testo F9 - Fine disegno. Questa istruzio¬ 
ne cancella la riga dei messaggi e toglie 
gli sprite, bloccando il programma nel 

modo Screen 2 (modo grafico ad alta 
risoluzione). Per uscire (cancellando il 
disegno) premete i tasti Ctrl e Stop. 

11 tasto FIO non è stato utilizzato per fare 
in modo che possa essere riservato a 
particolari routine (testo, salvataggio su 
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Listato 1 - Il programma Disegnatore per MSX. 

1 REM ooo»o*oooooo<jooo o oooo« 

2 REM 

3 REM DISEGNATORE - M.S.X. 

4 REM 

5 REM di Paolo Ferrami 

6 REM 

7 REM 1985 

8 REM 

9 REM 0040000000000000004000 
18 REM 

20 REM PRESENTAZIONE 
30 REM 

35 WIDTH(39 > 

40 SCREEN 2 : C0LÙR9,1,1 : CLS 
50 0PEN"GRP “AS1 
60 DEFINT U 

70 CIRCLE(127,100),9O,9,,,.6:BEEP 

80 CIRCLEU27,100), 70,9, , , . 6 ■ BEEP 

90 PAINT(50,100),9 BEEP 

100 CI RCLE(127,100),30,4,,,.6:BEEP 

110 CIRCLE<127,100), 20,4,,, . 6 :BEEP 

120 PAINT <100,100),4 :BEEP 

130 LINE<0,0)-<60,16),15,B 

160 PSET(82,30),1 :BEEP 

170 FOR A =1 TÙ 11 : READ A» 

180 U=RND(1)*15:IFU=1THEN U = 2 
190 C0L0RIJ:PRINT#1, A$; tNEXTA 
200 PSE T(118,97 >, 1 
210 COL0R15;PRINTH1,“MSX" 

220 PSET<65,167),1 

230 COLORl0:PRINTt»l,"1985 by P.Ferrami": 

CLOSE #1 :GOSUB2490 

240 DATA D,I,S,E,G,N,A,T,0,R,E 

250 REM 

260 REM MENU 


410 REM DISEGNO 
420 REM 

430 SCREEN2,8 COLOR I,OA,BO : CLS 
440 OPEN"GRP:"AS1 
450 IN*I 

460 IFCA=1THENQ=4ELSEQ=1 
4 70 LINE(0,183)-STEP(255,9),Q, BF 
480 REM 

490 REM ALLA ROUTINE SPRITE 

500 REM 

510 6OSUB2100 

520 REM 

530 REM ALLA ROUTINE CONTROLLO CURSORI 
540 REM 

550 GOSUB 620 :KEY(1)0N:KEY(2)0N:KEY(3)0N 
KEY(4)0N:KEY<5)0N:KEY(6)0N:KEY(7)0N : KEY 
<8>0N:KEY(9)0N 

560 IF 0 = 1 THEN : PRESET(3,183) :COLORO : PR 

■K3" : C0L0R15 : PRESET<8,183) :PRINT*1, "M 
ODO: TRACCIA COLOR I :PRINTI1 0 

= 11 : COLORI 

570 IFÙ=10R0=llTHENPSET(X,Y) 

580 IF 0 = 3 THEN : PRESET(3,183) :COLOR O :PR 

iNTii/'nmnannBBBaMBHi 

■BEI" : C0L0R15: PRESET <8,183) :PR INTUÌ, "M 
ODO: POSIZIONAMENTO COLOR I :PRINT#1, 

: 0 = 10 : COLOR I 

590 IF O=3ORO=10 THEN PUT SPRITE 9,<X-8, 
Y-4),IN,0 
600 GOTO 550 
610 REM 

620 REM CONTROLLO CURSORI 
630 REM E JOYSTICK 
640 REM 

650 IF STICK(0)=1 OR STICK(1)«1 THEN Y-Y 
-1 


-265-REM- 

270 O = 3:X*100:Y = 100: 1=15: IN=I 
280 KEY OFF 
290 C0L0R12,1 :SCREEN0 
300 L $ = " 

4444444 " 

310 PRINTL*:L0CATE9,3 :PRI NT"DI SEGNA TORE 
PER M.S.X." 

320 PRINT :PRINTL$:PRINT 
330 INPUT"COLORE DELLA CARTA (1-15)";CA 
340 PRINT:INPUT"COLÙRE DELLA PRIMA TRACC 
IA (1-15)"; I 

350 PRINT ; INPUT"COLORE DEL BORDO 
(1-15)";BO 

368 PRINT:PRIN TjPRINTL $_ 

378 COLORI,CA/CA 

380 INPUT" CONFERMI? (S/N)";S$ 

390 IFS*="N"OR S$ ="n" THEN 290 
400 REM 


-648- 

: Y = Y 

-TP— 

-1 

STICK<8>=2 

-OR- 

-S-7-ICK< l-)-=2 THEN) 

[»X*1 

670 

IF 

STICK(0)=3 

OR 

STICK(1)=3THEN 

X = X + 

1 

680 

IF 

STICK(0)=4 

OR 

STICK(1)*4THEN 

X = X* 

1 : Y = 

Y + l 





690 

IF 

ST x CK(0)=5 

OR 

STICK(1)*5THEN 

Y«Y + 

700 

IF 

STICK(0>=6 

OR 

ST ICK(1 ) =6THEN 

V = Y + 

1 : X = 

X -1 





710 

IF 

STICK(0)=7 

OR 

STICK(1)=7THEN 

x*x - 

720 

IF 

STICK(0>=8 

OR 

STICK(i)=8THEN 

x«x- 


1 :Y = Y -1 

730 IFY>182 THEN Y = 182:BEEP _ 

740 IF V<0 THEN V = 0:BEEP 
750 iFX>254 THEN X=254 :BEEP 
760 IFX<0 THEN X=0 BEEP 

770 IF STR 16(1) = -1 OR INKEV*="z"OR INKEY 
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disco/cassetta ecc.) non comprese in 
questo programma, ma facilmente inse¬ 
ribili nel listato. 

REMarks 

1-250 - Presentazione del programma. 
Nella riga 50 viene aperto un file per 
poter scrivere, mediante l'istruzione 
Print# 1 nella pagina grafica. Per posi¬ 
zionare le scritte viene usata l'istruzione 
Preset. La linea 230 chiude il file GRP. 
260-390 - Scelta del colore e verifica 
della compatibilità. 

400-470 - Inizio disegno. Nella linea 440 


viene riaperto il file GRP. Nella linea 460 
viene controllato che il colore degli spri- 
te sia diverso da quello del fondo per 
evitare che risultino invisibili. Nella linea 
470 viene colorato il fondo della riga dei 
messaggi. 

480-520 - Gosub alla routine di carica¬ 
mento degli sprite. 

530-540 - Gosub alla routine di controllo 
del movimento del joystick e dei tasti 
cursori. 

550-600 - Nella linea 550 vengono atti¬ 
vati 9 tasti-funzione; nelle seguenti linee 
si controlla il valore della variabile-flag 
O per verificare se siamo in modo posi¬ 


zionamento o in modo traccia. 

600-800 - Subroutine controllo cursori- 
joystick. Nelle linee 660-720 si controlla¬ 
no le risposte del joystick inserito nella 
porta 1 e dei tasti cursore. Le 4 linee da 
730 a 760 controllano che la traccia non 
esca dai confini del video: nel caso si 
raggiunga il bordo verrà fermato l'incre¬ 
mento delle coordinate e un segnale 
sonoro avvertirà l'utilizzatore della fine 
dello spazio disponibile per la traccia. 
Le linee 770 e 780 controllano lo stato 
dei pulsanti del joystick oltre che la bar¬ 
ra spaziatrice e del tasto (Z). La linea 
790, infine, indirizza alle subroutine ri- 
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S="Z"THEN 0=3 

788 IF STRIG<0) = -1 OR STRIG(3)*-i THEN 0 

* 1 : PIJ T SPRITE9, (X-8, Y-4>,0,0 

790 0N KEV GOSUB810,980,1090,1160,1200,1 

730,1300,1900,2000 

800 RETURN 

810 REM 

820 REM OPZIONE LINEA 
830 REM 
840 BEEP 

8 50 PSET(X,V) :PUTSPRITE9,(X + 8,Y + 4),0,0: 
PRESET(3,183)-COLORO;PRINTttl, "■■■■■■ 

0RA = lT05: PRESET(8,183):PRINTttl,"LINEA : T 
RACCIA L'ALTRO ESTREMO": COLOR I 
860 0N = X : ER = V 
870 6OSUB610 

880 PUT SPRITE 5,<X-4,Y-4>,IN,5 
890 IF STRIG<0)=-1 OR STRI6(3>=-1 THEN 0 
~WrpTTT~SrRTTE7 , ( X -4,Y-4), I N, 5 . ' G 0T 0918 
900 GÙTO870 

910 LINE(QW,£R)-(X,Y),I-PUTSPRITE5,( X -4, 


1000 ÌFQ = 1THENPRESET(3,183) :COLOR15:PRIN 
T#l,"COLORE l-tt9 © F0RA*2T08; COLORA : P 

R I N T *1, "# :N£XT:C0L0R9:PRINT#1, “• "'.CO 
LORI 

1010 BEEP:I»*INKEY*: IFI * *"“THEN1010 
1020 I*ASC(I$>: 1*1-48:IN*I 

1030 IF I <*0 OR I>*10THEN GOTO 980 _ 

1040 PRESET <3,183) : COLORO : PRINTtfl, "M 

■aSBHBBDBBBHHi" : COLOR I 

-3 

1050 RETURN 
1060 REM 

1070 REM COLORE DA 10 A 15 
1080 REM 

1090 PRESET<3,183) : COLORO : PR INTttl,"■■■ 
—— »■ ■■ : COLORI N 

1100 BEEP: PRESET(8,183):C0L0R15PRINT#1 
,“COLORE l-tt5 (+10) :F0RA = 11T014: COLOR 

A : PRINTttl, "• “ ; :NEXT : C0LQR15 : PRINTttl, "• 

" : COLORIN 

1110 BEEP:I*=INKEY*: IFI*= " “ THEN1110 
TlflTl*A ' SC(r«y: i*I -3'8'V IN»I 

1130 IFI<*10 ORI>=16THEN GOTO 1110 _ 

1140 PRESET ( 3,183 ): COLORO : PRI NTttl, "HM 


Y-4),0,5 


920 PRESET(3,183): COLORO :PRINTttl, “I 

—r : COLOR I 

930 RETURN 
940 0 = 10 : RETURN 
950 REM 

960 REM COLORE DA 1 A 9 
970 REM 

980 PRESETI 3,183): COLORO:PRINTttl, 

r: COLORI 


990 IFQ=4THENPRESET(3,l83):C0L0R15:PRINT 
tt l, “ COLO R E l -tt9 : F0 RA* 1T03 t COLO RA : PRI N 

T tt 1, "# NEXT:PRI NTttl,"© :F0 Rh* 5T08:C 
0L0RA:PRINTttl,"# :NEXT:C0L0R9:PRINTttl, 

: COLORI 


1150 0*3 : RETURN 
1160 REM 

1170 REM CANCELLAZIONE 
1180 REM 

1190 PUT SPR1TE9,(X-4,V-4),0,0 
1200 PRESET(3,183): COLORO :PRINTttl," 


1210 PRESET<3,183):C0LÙR15:PRINTttl,"CAN 
CELLAZIONE -tt";:COLOR10 : PR I NTttl,"IFIRE]" 

: COLOR I 

1 3Ì8 - P UT 8P R lTE7r< -X- 3", V >4 ), I N , 3- 

1230 IFSTRIG(1)=-1 OR STRIG(0)=-i THEN P 
RESET(X,Y),CA 
1240 GOSUB620 
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1250 IF STRIG(3)=-10R INKEV* *="z"0R INKEV 
♦="Z"THEN PUT SPRITE7,<X-3, V-4),0,3 : PRES 
ET<3,183). COLORO : PRINT*1, " 

— M Wlf g 'M — ■ : COLOR IN: RE TU 
RN 


1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

OR IN 
1340 
CH I 0 
1350 
1360 
+1 

1370 

-1 

1380 
1390 
HEN 


G0T01220 

REM 

REM CERCHI 

REM 

A*X 

BEEP 

PUT SPRITE 9,< X -4 , V -4 ), 0,0 
PRESET(3,183): COLORO :PR INT#1, 


: COL 


•CER 


PRESET(3,183):C0L0R15:PRINT#1, 
■ELLISSE -> RAGGIO" :C0L0RIN 
PUT SPRITE1,(A-4..V-4),IN,4 
I FSTICK <1)=3 OR STICK<0)=3 THEN X = X 

I FSTICK <1)=7 OR STICK(0)=7 THEN X = X 


T 


PUT SPRITE2,<X-4,V-4),IN,3 
P = 0: IF STRIG <1) = -1 OR STRIG<8 )*-1 
PRESET<3,183): COLORO :PRINTtl, “ ■■■ 

:60T01 


420 

I486 GOTO1350 
1410 REM 

1420 REM CERCHIO 0 ELLISSE 
1430 REM CONTROLLO ECCENTRICITÀ' 

1440 REM 

1450 PRESET<3,183):C0L0R15:PRINTIl, "ECC 
ENTRICITA' (1 = CERCHI0)":C0L0RI 
1460 LETI*=INKE V$ 

1470 IFI*="1“THEN BEEP:E-l.4 :GOTO1590 


),P,l2 

1630 LETB=ABS<X-A)*E 

1640 PUT SPRITE 7,<100,170),0,4 

1650 PUT SPR I TEI,< A,B),0,4 

1660 PUT SPRITE2,(X,V),0,3 

1670 IF E>1 THEN C IRCLE<A,V>,B,I,,,E : O» 

3 

1680 IF E<1 THEN CIRCLE<A,V),B/E,I,,,E : 
0*3 

1690 GOTO 590 
1700 REM 

1710 REM COORDINATE 

1720 REM _ 

1730 PRESET<3,183) : COLORO :PRINTIl, "■■■ 
— ! ■’ M»■! ' : COLO 

R15:F0RA = lT05:PRESET(8jl83):PRINTIl, " X 
= " ; X ; " V="; V : NEXTA:BEEP 

1740 IF 0 = 1 OR 0 = 11 THEN PRESET(3,183) :C 
PR INTUÌ, " 

■BBmBB" : COLORI5 : PRESET(8,183) :PR 
INTIl,"MODO : TRACCIA " ; : COLORI :PRINT 

41, " #" : 0 = 11 : COLORI 

1758 IF 0=30R 0= 10 THEN PRESET(3,183)= C 
OLORQ PR INTUÌ, 


l*8r 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

RIN 

1620 

UTSPR 




TFTT 

IF I ♦ = " 
I FI * *" 
IFI < = ” 
IF I $ * " 
IF I $ * " 
IF I ♦ = " 
IFI*=" 
I F I $ = " 
BEEP:G 
REM 

REM DI 
REM 

PRESET 


THEN 

3"THEN 
4"THEN 
THEN 
THEN 
THEN 
THEN 
9"THEN 
0 " T H E N 
OTO1460 


BEEP 

BEEP 
BEEP 
BEEP 
BEEP 
BEEP 
BEEP 
BEEP : E 
BEEP : E 


«2 : GOTO1590 

*2.5:GOTO1590 
■ 3 :GOTO1590 
=3.5GOTO1590 
*.1 : GOTO 1590 
= .3 : GOTO 1590 
*.5 : GOTO 1590 
= .7 :60T0 1590 
«.9.6OTO1590 


S" :C0L0R15:PRESET(8,183) : PR 
I N T 41,"MODO : POSIZIONAMENTO “j:COLORI: 
PRINTIl, : 0 = 10 : COLOR I 
1760 RETURN 
1770 REM 

1780 REM RETTANGOLI 
1790 REM 

1800 P S E T ( X, V ):PUTSPRITE9,(X + 8,V + 4 ),0, 0 : 

PRESET<3,183) : COLORO : PRINTH, "■HBHB 
■ ■ m ' ■■■t ■ ii —1 “ : C0L0R15 : 

F0RA=lT05:PRESET(8,183) PRINTIl,"RETTANG 
OLO : TRACCIA LA DI AGONALECOLOR I 
1810 QW=X:ER=V 
1820 GOSUB650 

-*fr9e-FU T- S P R I TE 5, (X-4,V-4 )i I Hj S - 

1840 IF STRIG(0)=-1 OR STRI6<3)*-1 THEN 
0 = 1 :PUT SPRITE5,CX-4,V-4),IN,5 :6OTO1860 
1850 GOTO1820 

1860 BEEP:LINECQW,ER)-(X,V),I,B:PUT SPRI 
TE5,<X-4,V-4),0,5 

1870 IF 0 = 1 OR 0 = 11 THEN PRESET(3,183) :C 
0L0RQ:PRINT#1, " 

—— " : C0L0R15 : PRESET(8,183) • PR 
INTI1,“MODO : TRACCIA COLOR I :PRI NT 

#1, : 0 = 11 : COLORI 

1880 IF 0*30R 0 = 10 THEN PRESET(3,183 )■ C 

WBmammmmmmmamtmmm 


SE6N0 CERCHIO- 
<3,183): COLORO 


ELLISSE 
:PRINT#1,-| 


-COL O 


OLORQ:PRINT#1, "I 
■B9BB9E9B" :C0L0R15 PRESET < 8,183) : PR 
INTUÌ, "MODO: POSIZIONAMENTO",.;.C PLORI. . 


P = 0:BEEP:PUT SPRITE 3,(8,19),P,10 :P 
ITE4,<16,19),P,11:PUTSPRITE5,<24,19 


PRINT#1, "#": 0 = 10 : COLOR I 
1890 RETURN 
1900 REM 
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Disegnatore per MSX 


MSX 


Seguito listato Disegnatore per MSX. 

1910 REM PAINT 
1920 REM 
1930 BEEP 
1940 PAINHX, V), I 

1950 IFIN=IAND I<13 THEN LET I N=I+3 
1960 IF IN = IANI) I>12 AND NOT CA = 1 THEN 

LET iN*1 ELSE IN = 10 _ 

1970 PRESET <3,183) : COLORO : PRIN T»! , " ■■■ 

1980 C0L0R15; PRESET<8,183):PRINT#1, "MODO 
: POSIZIONAMENTO * ; :COLOR I :PR I NT#i," •" 

: O“10 COLOR I 
1990 0*10 : RETURN 
2000 REM 

2010 REM FINE PROGRAMMA 

2020 REM _ 

2030 PRESET<3,183) C0LQRBQ:PRINTI1, " — 

E(0,191>-STEP(255,0).COLORI 
2040 PUTSPRITE9,<X-8 , Y-4 >, 0,0 
2050 GOSUB2490 
2060 6OTO2060 
2070 REM 

2080 REM CARICAMENTO SPIRTE 
2090 REM 
2100 REM 
2110 REM 

2120 REM SPRITE FRECCIA 
2130 REM 

2140 B*="“:FOR U*1 TO 8 
2150 READ A* 

2160 B»=B$+CHR$<VAL<"DB"+A$>> 

2170 NEXT U 
2180 SPRITE$(0>=B* 

2190 DATA 00001000,00001100;00001110*111 

11111,11111111,00001110,00001100.0000100 

2200 REM SPRI TE CROCE 
2210 REM 

2220 B*="“ :FOR U = 1 TO 8 
2230 READ As 

2240 B$=B*+CHR»(VAL<“6B"+A$)> 


2350 SPRITE$<4>=B» 

2360 DATA 00011000,00111100,00111100.011 
11110,01111110,00111100,00111100.0001100 
0 

2370 REM 

2380 REM SPRI TE RETTANGOLO 
2390 REM 

2400 B$ = "* :FOR U = 1 TO 8 
2410 READ A* 

2420 B$=B$+CHR$<UAL<” 6 B " + A $ )> 

2430 NEXT U 

2440 SPRITE*<5)=B$ 

2450 DATA 00000000,01111110,01000010,010 

10010,01000010,01000010,01111110.0 

2460 RETURN 

2470 REM 

2480 REM MUSICA: 

2490 REM 

2500 REM MINUETTO IN SOL MAGGIORE 
2510 REM J.S.BACH 

2520 REM 

2530 PLAV"Tl80O5L4DO4L8GABO5C","T180O3L2 
GL46 " ,"T180O3L2BR4" 

2540 PLAV"05L4D04GG","L2B. " 

25 50 PLAV05L4EL8CDEF + ", “ 04L2C. “ 

2560 PLAVÙ5L4G04L466" , "03L2B. 11 
2570 PLAV05L4CL8DC04BA", "03L2A. " 

2580 PLAV04L4B05L8C04L8BAG", “03L26. " 
2590 PLAV"04l4F+L86ABG","04L4D03L4BG" 
2600 PLAV04L4BL2A",“04L4B03L8D04L8C03L8 
BA” 

2610 PLAV05L4D04L8GAB05C", "03L2GL4G" , "0 
3L2BR4" 

2620 PLAV“Ù5L4D04G6 1 ', " 03L4GBG " 

2630 PLAV05L4EL8CDEF + ", “ 04L2C. " 

2640 PLAV"05L4G04L4GG",“03L4B04L8C03L8BG 
A" 

2650 PLAV“05L4CL8DC04BA","03L2A14F+" 

2660 PLAVÙ4L4Ì05L8C04L8BA6" , "03L2GL4B" 
2670 PLAV04L4AL8BA6F+" , "04L4CD03L4B" 
2680 PLAV04L2G. ", "03L26. ", “03L2B. " 

2690 RETURN 


2250 NEXT U 
2260 $PRITE*<3>»B$ 

2270 DATA 00010000,00010000,00010000,111 
Olili,00010000,00010000,00010000,0001008 
0 

2280 REM 

2290 REM SPR I TE CERCHIO 
2300 REM 

231 -0- -B» - “ “ . F O R- U - l - - TO 8 - 

2320 READ A* 

2330 Bi = B$ + CHR*(VAL< , {.B ,, +A*)) 

2340 NEXT U 
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eliminazione dei guasti dei cir¬ 
cuiti elettronici. 
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grammatore e il responsabile di 
archivi elettronici. 

Co d. 526P Pag. 186 Lire 22.500 
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LINGUAGGIO C 

Il testo “ufficiale” sul linguaggio 

C, scritto da chi l'ha progettato 
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una completa trattazione del 
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Tullio Trincardi 
LA CONTABILITÀ COL 
PERSONAL COMPUTER 

Diventare protagonisti diretti 
nell'utilizzo del computer per le 
proprie esigenze. È l’obiettivo di 
un test che affronta il problema 
dai termini generali fino alle 
specifiche routine di utilità per 
la costruzione di programmi ge¬ 
stionali complessi è all'esame 
di alcuni dei pacchetti più utili 
alle aziende. 



























Disegnatore per MSX 



chiamate dai tasti (unzione. 

810-940 - Subroutine linee inclinate. Do¬ 
po aver segnalato l'opzione nella zona 
dei messaggi, accende gli sprite dedica¬ 
ti (linea 850). Controllati gli impulsi dal 
joystick, sposta lo sprite alle nuove coor¬ 
dinate e, se viene premuta la barra spa¬ 
ziatrice o un pulsante del joystick, trac¬ 
cia la linea, uscendo cosi dal sottopro¬ 
gramma. 

950-1050 - Subroutine colori. Mostrati i 



colori disponibili, il programma si predi¬ 
spone ad accettare dalla tastiera il nu¬ 
mero del colore prescelto (1010-1020); 
controllata la validità del numero impo¬ 
stato, torna alla routine principale. Le 
linee 990 e 1000 verranno utilizzate a 
seconda del colore della linea dei mes- 
saggi in modo che il simbolo con Io 
stesso colore della linea venga disegna¬ 
to solo col contorno. 
1060-1150-Subroutine colori da IOa 15. 
1160-1260 - Subroutine cancellazione. 
Segnalata l'opzione, va alla subroutine 
di controllo movimento. Se la barra spa¬ 
ziatrice o un pulsante del joystick è pre¬ 
muto, il programma elfettua la cancella¬ 
zione mediante l'istruzione Preset (linea 
1230). Premendo l'altro pulsante ritor¬ 
nerà alla routine principale. 

1270-1690 - Subroutine cerchio-ellisse. 
Questo sottooroaramma è strutturato in 

tre blocchi: il primo (1270-1400) prepara 

lo schermo e fa apparire gli sprite neces¬ 
sari alla scelta del raggio (o all'asse 
orizzontale). Le linee 1360-1370 control¬ 
lano il movimento del joystick mentre la 
linea 1390 manderà al secondo blocco, 


dedicato alla scelta dell'eccentricità 
(1410-1570). Qui, a seconda del tasto 
premuto, avremo un diverso valore di 
eccentricità. Il terzo blocco, dopo aver 
elaborato il valore dell'eccentricità in 
modo che la curva abbia effettivamente 
il raggio richiesto (linea 1630), effettuerà 
il disegno. 

1700-1760 - Subroutine coordinate. 
Stampa sulla linea dei messaggi le coor¬ 
dinate X e Y dell'ultimo punto plottato 
per un tempo determinato del ciclo For- 
Next della linea 1730. 

1770-1890 - Subroutine rettangoli. La 
struttura della subroutine è molto simile 
a quella utilizzata per tracciare le linee: 
viene utilizzata ancora l’istruzione Line 
del BASIC MSX. con la sola aggiunta 
della lettera B che traccerà il rettangolo 
di cui Line è la diagonale (1860). 
1900-1990 - Subroutine Paint. Questa 
routine sfrutta semplicemente l'istruzio¬ 
ne MSX Paint. Le linee 1950 e 1960 sono 
due istruzioni di controllo If-Then-Else 
che danno allo sprite-cursore un colore 
diverso da quello del fondo e della trac¬ 
cia, per far si che lo sprite sia sempre 
visibile e non si confonda col disegno. 
2000-2060 - Fine programma. Toglie tut¬ 
ti gli sprite e i messaggi del video e, dopo 


aver lanciato la routine musicale, bloc¬ 
ca il programma alla linea 2060 per evi¬ 
tare che ritorni nel modo testo, provo¬ 
cando la cancellazione del disegno. 
2070-2460 - Subroutine caricamento 
degli sprite. E formata da quattro bloc¬ 
chi, ciascuno dei quali carico uno sprite 
leggendo i numeri i binari nei Data. 
2470-2690 - Subroutine musica. E un 
minuetto in Sol maggiore di J.S.Bach, 
suonato utilizzando i tre canali dell’i¬ 
struzione Play. ■ 


Variabili utilizzate 

A - Variabile di controllo e ascissa centro del cerchio. 

U - Variabile di controllo. 

-D—.Eiag-di controllo del.mndn grafico_ 

X - Ascissa dell'ultimo punto disegnato. 

Y - Ordinata dell'ultimo punto disegnato 
I - Colore traccia e codice ASCII di 1$. 

CA - Colore fondo. 

IN - Colore sprite. 

Q - Colore linea messaggi. 

BO - Colore bordo. 

OW - Ultimo valore assunto da X prima di un'opzione. 

ER - Ultimo valore assunto da Y prima di un'opzione. 

E - Eccentricità. 

P - Colore sprite nelle opzioni "linea" e “rettangolo". 

E - Raggio cerchio. 

AS - Contiene le lettere della parola "disegnatore" e i valori binari letti 
- ne i Dato dog li opr i to. - 

LS - Stringa di caratteri grafici. 

BS - Sprite. 

IS - lnkey$. 
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Uso delle label 
simboliche 

I l BASIC è certamente il linguaggio 
più diffuso tra gli utenti di piccoli 
personal computer e ciò è dovuto sia 
alla semplicità che alla sua praticità 
d’uso. Il fatto di essere interpretato lo ren¬ 
de infatti di uso immediato anche per pro¬ 
grammatori alle prime armi e le istruzioni 
che lo compongono risultano abbastanza 
conprensibili anche a chi non ha troppa 
familiarità con la lingua inglese. Quasi 
tutto il bene ed il male è stato scritto su 
questo popolare linguaggio, sulla sua len- 
tenzza di esecuzione, sulla facilità di manu¬ 
tenzione dei programmi ed altro, ma forse 
un aspetto non è stato considerato in tutta 
la sua importanza. Ciascuno si sarà reso 
conto della difficoltà di interpretare il lista¬ 
to di un programma composto da molti 
Goto o Gosub a numeri di riga astrusi ed 
incomprensibili senza gli adeguati com¬ 
menti esplicativi. Dal momento che questi 
ultimi occupano spazio prezioso e tempo 
di battitura spesso vengono ridotti al mi¬ 
nimo con le conseguenze ben note. Per non 


parlare delle modifiche che spesso portano 
a imprevisti “Undef Statement Error” per¬ 
ché, senza saperlo, si sono cancellate o 
spostate istruzioni alle quali altre facevano 
riferimento. Nei linguaggi dotati di com¬ 
pilatori questo problema non sussiste per¬ 
che è possibile assegnare all’indirizzo di 
una istruzione un nome simbolico al quale 
fare riferimento nelle altre parti del pro¬ 
gramma ed in modo da ricordare immedia¬ 
tamente la funzione svolta. Ben diverso è 
trovarsi di fronte ad un 1670 Gosub Cal¬ 
cola L’Area che ad un sibillino 1670 Gosub 
3456. In effetti alcune versioni di BASIC, 
disponibili su macchine di classe superiore, 
hanno questa possibilità già implementata, 
a conferma della sua indiscussa utilità nella 
stesura e nella manutenzione dei program¬ 
mi. 

L’uso di label non solo numeriche, ma 
anche simboliche, diventa possibile anche 
sul C 64 semplicemente caricando la routi¬ 
ne di gestione presentata di seguito solo 
con una modesta riduzione della memoria 
disponibile e quasi senza effetti sulla velo¬ 
cità di esecuzione dei programmi. 

Dal momento che il BASIC si trova su 
ROM non sembra possibile apportarvi 
modifiche software senza pericolosi inter¬ 
venti hardware sul sistema, ma ciò non è 
del tutto vero. Infatti una delle routine più 
usate durante l’esecuzione dei programmi 
si trova in pagina o alle locazioni RAM da 
S0073 a S008A (decimale 115-138) dove 


Figura 1 - La routine Charget normale e modificata. 


NORMALE CHARGET CHARGET MODICATA 


$0073 

INC 

-$TA 

TN<r 

$7 A 

$0075 

BNE 

$0079 

BNE 

$0079 

$0077 

INC 

$7B 

INC 

$7B 

$0079 

LDA 

$0201 *** 

LDA 

$0201 

$007C 

CMP 

#$3A 

JMP 

$ 9E0D 

$007E 

BCS 

$008A 

NOP 


$0080 

CMP 

#$20 

CMP 

#$20 

$0082 

$0084 

BEQ 

SEC 

$0073 

BEQ 

SEC 

$0073 

$0085 

$0087 

SBC 

SEC 

#$30 

SBC 

SEC 

#$30 

$0088 

■$008A 

SBC 

■RTS 

#$D0 

SBC 

- R J TS~ 

#$D0 


*** istruzione modificata continuamente 
### salto alla routine di gestione 
















Uso delle label simboliche 


COMMODORE 64 


viene messa automaticamente ad ogni ac¬ 
censione o Reset del sistema. Il nome è 
Charget e serve a prelevare dal programma 
o dal buffer di ingresso i carattteri che 
compongono le istruzioni BASIC affinché 
Tinterprete possa eseguirle. Essa viene ri¬ 
copiata in RAM poiché deve continu¬ 
amente automodifìcarsi per puntare al ca¬ 
rattere seguente cosa ovviamente impossi¬ 
bile in ROM. È una particolarità che si 
trova in tutti i dialetti BASIC di derivazio¬ 
ne Microsoft implementati sul micropro¬ 
cessore 6502 e può rappresentare la via più 
semplice per interferire con il BASIC, al 
fine di aggiungervi nuovi comandi o mo¬ 
dificare quelli esistenti, senza entrare nell- 
, interprete vero e proprio, che continuerà a 
svolgere tranquillamente il suo lavoro. Se 
la Charget prende ogni carattere da inter¬ 
pretare è semplice modificarla affinché 
essa, prima di cederlo al BASIC, permetta 
ad una diversa routine di esaminarlo ed 
agire di conseguenza. Si può dire che po¬ 
trebbero convivere due interpreti diversi, 
ciascuno dei quali in grado di gestire co¬ 
mandi diversi ed entrambi facenti capo alla 
stessa Charget. 

Esaminando la figura 1 osserviamo che 
dopo la modifica ogni nuovo carattere pas¬ 
serà prima dalla routine che inizia all’indi¬ 
rizzo S9E0D, la quale potrà poi rilasciarlo 
alla gestione normale tornando all’indi¬ 
rizzo S0080 dopo aver eseguito le due 
istruzioni distrutte a S007C e S007E; oppu¬ 
re sostituirsi al BASIC se di tratta di un 
comando diverso. Le nuove istruzioni 
possono essere riconosciute facendole pre¬ 
cedere da un carattere o da una coppia di 
ca ratteri speciali di u so non frequente onde 
evitare ambiguità: in questo modo tutto è 
fatto. In effetti le cose sono però piuttosto 
complicate dal fatto che l’interprete fa un 
uso molto particolare sia dei registri di 
CPU, dello stack e della pagina zero, per 
cui è estremamente facile che si accorga 
della presenza di questo software estraneo 
reagendo molto spesso con il blocco totale 
del sistema o con incomprensibili malfun¬ 
zionamenti. Si tratta dunque di un “tra¬ 
pianto” possibile, ma molto delicato e non 
scevro da pericoli di “rigetto”. Una attenta 
lettura e meditazione del manuale relativo 
_al sistema operati.v.a-del-C-64-£ -altamente- 

raccomandabile, nonché una mano molto 
abile nella programmazione Assembly. 

La routine di gestione delle label simboli¬ 
che innanzitutto si preoccupa di ricono¬ 
scerle, grazie al simbolo che le distingue, e 
di rilasciarle al BASIC, fingendo che siano 


Listato 1 - Assembly della routine di gestione delle label. 


00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
002B 
002D 
002F 
00FB 
00FD 
00FE 
00 FF 
0100 
0100 
0014 
0016 
007A 
007C 
007C 
9E00 
9E0 2 
9E04 
9E06 
9 £08 
9 EOA 
9E0C 
9E0D 
9E0D 
9E0D 
9 EOF 
9E10 
9E12 
9E14 
9E16 
9E17 
9E19 
9E1B 


PROGRAMMA PER L'USO DI 
LABEL SIMBOLICHE IN 
BASIC SU COMMODORE C64 

IMG. L. SQUARZA -PARMA- 
10/84 


REM°$8F 

GOSUB=$8D 

GOTO=$89 

TOKEN°$40 

CHARGO=$7C 


INPRO 
FI PRO 

INDI 
CHRG 
C0M01 
COMO 2 


A9 4C 
85 7C 
A9 OD 
85 7D 
A9 9E 
85 7E 
60 


84 FE 
48 

A5 7 B 
C9 08 
B0 OD 
68 

A4 FE 
C9 3A 
B0 05 


*«$2B 
* = *♦2 
•a* + 2 
•®$FB 
*-*♦2 

• = *+l 

* = *♦1 
* = * + 1 

* = $14 

* = *♦2 

• = $7A 

* = *♦2 

•=$9E00 
LDA #$4C 
STA CHARGO 
LDA KGESTL 
STA CHARGO+1 
LDA |>GESTL 
STA CHARGO+2 
RTS 


STY C0M01 
PHA 

LDA NUCAR+1 
CMP l$08 
BCS INRUN 
PLA 

LDY C0M01 
CMP #$3A 
BCS EXIT 


TOKEN PER REM 

■ " GOSUB 

• " GOTO 

" " LABEL 

INDIRIZZO ATTIVAZIONE ROUTINE 


INDIRIZZO DI INIZIO PROGRAMMA BASIC 
" FINE 

AREA LAVORO 


; INDIRIZZO PROSSIMO CARATTERE 
; DEL TESTO BASIC 

; INIZIO ROUTINE DI GESTIONE 
; SI ENTRA QUI PER 
; ATTIVARE LA GESTIONE 
; DELLE LABEL IN 
; BASIC 
;JMP $9E0D 

; FINE INIZIALIZZAZIONE 


{SALVA IL REG V 

; SALVA IL CARATTERE DA ESAMINARE 
;SE E' IN RUN 

;VA A CONTROLLARE 
;SE IN MODO DIRETTO 
; RIPRISTINA V E ACC 
; SIMULA LA PARTE TOLTA 
; DELLA CHARGOT ROUTINE 


00055 

9E1D 

4C 

80 

00 


JMP 

$0080 

;E RITORNA 

00056 

9E20 

A4 

FE 


RITOR 

LDY 

COMOl 


00057 

9E2 2 

60 



EXIT 

RTS 



00058 

9E23 

68 



INRUN 

PLA 


; RIPRISTINA L'ULTIMO CARATTERE 

00059 

9E24 

C9 

4 0 



CMP 

fTOKEN 

; SE DIVERSO DAL TOKEN 









• POTREBBE ESSERE nA GESTIRE 

00061 

9E28 

A9 

8F 



LDA 

• REM 

; ALTRIMENTI SIMULA UNA REM 

00062 

9E2 A 

DO 

EB 



BNE 

NOBUO 

; E RITORNA AL BASIC NORMALMENTE 

00063 

9E2C 

C9 

8D 


N0NAN 

CMP 

•GOSUB 

; SE E' UN GOSUB ALLORA 

00064 

9B2E 

F0 

04 



BEO 

FORBU 

; CONTINUA AD INDAGARE 

00065 

9E30 

C9 

89 



CMP 

•GOTO 

;SE NON E' NEMMENO UN GOTO 

00066 

9E32 

DO 

E3 



BNE 

NOBUO 

; NIENTE DA FARE 

00067 

9E34 

85 

FD 


FORBU 

STA 

CHRG 

; SALVALO 

00068 

9E36 

A0 

00 



LDY 

• 0 


00069 

9E38 

C8 



AUMY 

INY 



00070 

9E39 

Bl 

7A 



LDA 

(NUCAR) ,Y 

{CONTROLLA IL SUCCESSIVO 

00071 

9E3B 

F0 

08 



BEQ 

NOTRO 

; SE FINE ISTRUZIONE NON CI SIAMO 

00072 

9E3D 

C9 

20 



CMP 

• ' 

; SE E' UNO SPAZIO 

00073 

9E3F 

F0 

F7 



BEO 

AUMY 

{CONTROLLA IL SUCCESSIVO 

00074 

9E41 

C9 

40 



CMP 

•TOKEN 

; SE E' PROPRIO IL TOKEN 

00075 

9E4 3 

F0 

04 



BEO 

OKVAL 

{ALLORA CI SIAMO 

00076 

9E45 

A5 

FD 


NOTRO 

LDA 

CHRG 

{RIPRISTINA L'ULTIMO 

00077 

9E47 

DO 

CE 



BNE 

NOBUO 

; E RITORNA ALLA NORMALE GESTIONE 

00078 

9E49 

20 

88 

9E 

OKVAL 

JSR 

CERCA 

{CERCA L'ISTRUZIONE CON LA LABEL 

00079 

9E4C 

B0 

03 



BCS 

SIDEF 

{SE C=1 ALLORA ESISTE 

00080 

9E4E 

4C 

E3 

A8 


JHP 

5A8E3 

;SE NO -UNDEFINED STATEMENT" E STOP 

00081 

9E51 

68 



SIDEF 

PLA 


{PREPARA UN NORMALE RITORNO 

00082 

9E52 

68 




PLA 


{DALLA ROUTINE BASIC 

00083 

9E53 

A9 

A7 



LDA 

*$A7 

{DI GESTIONE DEI COMANDI 

OOÒtì'l 

9e55 

48 




-m 


•KOTjrFrcANixr il cuntenuto- 

00085 

9E56 

A9 

AD 



LDA 

• $ AD 

{DELLO STACK 

00086 

9E58 

48 




PHA 



00087 

9E59 

A5 

FD 


TROVO 

LDA 

CHRG 


00088 

9E5B 

C9 

8D 



CMP 

•GOSUB 

;SE NON E' UN GOSUB 

00089 

9E5D 

DO 

1A 



BNE 

VAIA 

;VA A GESTIRE IL GOTO 

00090 

9E5F 

A9 

03 



LDA 

• 3 

{CONTROLLA CHE VI SIA 
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I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 

SINCLAIR SPECTRUM cod. 017H 
VIC 20 cod. 005H 
COMMODORE 64 cod. 002H 
PC IBM cod. 018H 
APPLE Ile cod. 003H 
SHARP MZ80A cod. 014H 

LA PROGRAMMAZIONE cod. 004H 

WORD STAR cod. 008H 
UNIX cod. 009H 
LOGO cod. 020H 
MS-DOS cod. 019H 
PROGRAMMI DI STATISTICA cod. 
015H 

CP/M cod. 01 IH 
PC-DOS cod. 012H 


OGNI TASCABILE COSTA L. 


BASIC cod. 007H 
ASSEMBLER Z80 cod. 016H 
ASSEMBLER 6502 cod. 013H 
COBOL cod. 001H 
FORTRAN 77 cod. 010H 
PASCAL cod.006H 



ritagliare (o fotocopiare) e spedire in busta chiusa a: 

GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini. 12 - 20124 Milano 

CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 
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Titolo 

Prezzo unitario 

Prezzo totale 

















laute 
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I SEGRETI 


PERSONAL 


Uso delle label simboliche 


COMMODORE C 64 


Seguito programma Aaaembly. 




00091 

9E61 

20 

PB 

A3 


JSR 

$A3PB 

; SPAZIO NELLO STACK 

00092 

9E64 

A5 

7 B 



LDA 

NUCAR*1 

3SALVA 

00093 

9E66 

40 




PHA 


{L'ATTUALE INDIRIZZO 

00094 

9E67 

A5 

7 A 



LDA 

NUCAR 

; NEL TESTO 

00095 

9E69 

48 




PHA 


}BASIC 

00096 

9E6A 

A5 

3A 



LDA 

S3A 

{SALVA 

00097 

9E6C 

40 




PHA 


{L'ATTUALE 

00098 

9E6D 

A5 

39 



LDA 

S39 

{NUMERO 

00099 

9E6F 

48 




PHA 


{DI RIGA 

00100 

9B70 

A9 

OD 



LDA 

• $8D 

{METTE IL CONTRASSEGNO 

00101 

9E72 

48 




PHA 


{DI GOSUB 

00102 

9E7 3 

20 

79 

9E 


JSR 

VAIA 

{LO GESTISCE COME UN GOTO 

00103 

9B76 

4C 

AB 

A7 


JMP 

$ A7AE 

{ESEGUE LA PROSSIMA RIGA DI PROGRAMMA 

00104 

9E79 

A0 

02 


VAIA 

LDY 

• 2 

{GESTIONE DI UN GOTO 

00105 

9E7B 

Bl 

FB 



LDA 

(INDI),Y 

{NUMERO DELLA ISTRUZIONE 

00106 

9E7D 

85 

14 



STA 

ARCOM 

{ALLA QUALE ANDARE 

00107 

9E7F 

C8 




INY 



00108 

9 ESO 

Bl 

FB 



LDA 

(INDI)/Y 


00109 

9E82 

85 

15 



STA 

ARCONTI 


00110 

9E04 

20 

A3 

AB 


JSR 

SA0A3 

{NORMALE GESTIONE DI UN GOTO 

00111 

9E87 

60 




RTS 


{TUTTO FATTO 

00112 

9E08 




: 




00113 

9E88 




; 

RICERCA DELLA 

RIGA BASIC 

00114 

9E88 




: 

CONTENENTE LA 

LABEL ATTUALE 

00115 

9E88 




: 




00116 

9E00 




CERCA 




00117 

9E88 

18 




CLC 



00118 

9E89 

A5 

2B 



LDA 

INPRO 

{PARTE DALL'INIZIO 

00119 

9E8B 

85 

PB 



STA 

INDI 

{DEL TESTO BASIC 

00120 

9E8D 

69 

04 



ADC 

• 4 

{CERCA IL TOKEN ALL'INIZIO 

00121 

9E0F 

8D 

E3 

9E 


STA 

GETTA*1 

{DEL TESTO 

00122 

9E92 

A5 

2C 



LDA 

INPRO*1 

{CIOÈ' 4 BYTES AVANTI 

00123 

9E94 

85 

PC 



STA 

IND1*1 


00124 

9E96 

69 

00 



ADC 

• 0 


00125 

9E98 

8D 

E3 

9E 


STA 

GETTA*1 


00126 

9E9B 

84 

FP 



STY 

COMO 2 

{SALVA IL PUNTO DI INIZIO 

00127 

9E9D 

A4 

PF 


LOPY 

LDY 

C0MO2 

3RICARICA L'INIZIO 

00120 

9E9F 

20 

E2 

9E 

LOPB 

JSR 

GETTA 


00129 

9EA2 

C9 

20 


LOPB1 

CMP 

#' 

{SE NON E' SPAZIO 

00130 

9EA4 

DO 

05 



BNE 

OKCF1 

{VA A CONTROLLARE 

00131 

9EA6 

20 

DA 

9E 


JSR 

INCR2 

{ALTRIMENTI TENTA 

00132 

9EA9 

DO 

F7 



BNE 

LOPB1 

{COL PROSSIMO 

00133 

9EAB 

DI 

7A 


OKCF1 

CMP 

(NUCAR),Y 

{E' UGUALE A QUELLO CERCATO ? 

00134 

9EAD 

DO 

08 



BNE 

NURIG 

{SE NO TENTA CON LA PROSSIMA ISTRUZIONI 

00135 

9EAF 

C8 




INY 



00136 

9EB0 

20 

DA 

9E 


JSR 

INCR2 

{CONTINUA COL CARATTERE SUCCESSIVO 

00137 

9EB3 

DO 

F6 



BNE 

OKCF1 

{SE FINE ISTRUZIONE 

00138 

9BB5 

38 



OKSTR 

SEC 


{C-l SIGNIFICA TROVATO 1 

00139 

9EB6 

60 




RTS 


{ESCI PURE 

00140 

9ED7 

A0 

00 


NURIG 

LDY 

»0 

{AVANZA DI UNA RIGA DI TESTO 

00141 

9EB9 

Bl 

FB 



LDA 

( INDI ) ,Y 

{PRENDE 

00142 

9EBB 

40 




PHA 



00143 

9EBC 

10 




CLC 


{L'INDIRIZZO 

00144 

9EBD 

69 

04 



ADC 

• 4 

{DELLA PROSSIMA 

00145 

9EBF 

0D 

E3 

9E 


STA 

GETTA+1 

{*4 BYTE PER 

00146 

9EC2 

C8 




INY 


{LA RICERCA 

00147 

9EC3 

Bl 

FB 



LDA 

(INDI),Y 

{SE ZERO 

00148 

9EC5 

F0 

10 



BEO 

PINCE 

{ALLORA FINE PROGRAMMA 

00149 

9EC7 

40 




PHA 



00150 

9EC8 

69 

00 



ÀÒC 

*ò' 


00151 

9 EOA 

8D 

E4 

9E 


STA 

GETTA+2 


00152 

9BCD 

68 




PLA 


{RICORDA A QUALE 

00153 

9ECE 

85 

PC 



STA 

INDl*1 


00154 

9 EDO 

60 




PLA 


{RIGA E' ARRIVATO 

00155 

9 EDI 

85 

FB 



STA 

INDI 


00156 

9ED3 

A4 

FP 



LDY 

COM02 

{RICERCA DALL'INIZIO DELLA LABEL 

00157 

9ED5 

DO 

C8 



BNE 

LOPB 

{E RIPROVA 

00158 

9ED7 

68 



PINCE 

PLA 


{PURTROPPO LA LABEL 

00159 

9ED8 

18 




CLC 


{CERCATA NON ESISTE 

00160 

9ED9 

60 




RTS 


{C-0 E RITORNA 

00161 

9BDA 

EE 

E3 

9E 

INCR2 

INC 

GETTA*1 

{PRENDE IL CARATTERE 

00162 

9EDD 

DO 

03 



BNE 

GETTA 

{SUCCESSIVO DA CONTROLLARE 

00163 

9EDF 

EE 

E4 

9E 


INC 

GETTA*2 


00164 

9EE2 

A0 

PP 

PP 

CETTA 

LDA 

$F PFF 

{ISTRUZIONE MODIFICATA PER 

00165 

9EBS 

60 




RTS 


{RICERCA VELOCE 


00X66 9EB6 


SYMBOL TABLE 
SYMBOL VALUE 


ARCOM 

0014 

AUMY 

9E38 

CERCA 

9E88 

CHARGO 

007C 

CHRG 

OOPD 

COMOl 

OOFE 

COM02 

00FF 

EXIT 

9E22 

PINCE 

9ED7 

FI PRO 

002D 

FORBU 

9E34 

GESTL 

9E0D 

GETTA 

9EE2 

GOSUB 

oo8t> 

wro 

0009 

INCR2 

9EDA 

INDI 

00FB 

INPRO 

002B 

XNRUN 

9E23 

LOPB 

9E9t 

LOPB1 

9EA2 

LOPY 

9E9D 

NOBUO 

9E17 

NONAN 

9E2C 

NOTRO 

9E45 

NUCAR 

007A 

NURIG 

9EB7 

OKCFl 

9EAB 

OKSTR 

9EB5 

OKVAL 

9E49 

REM 

OO0P 

RITOR 

9E20 

SIDEP 

9E51 

START 

9 EOO 

TOKEN 

0040 

TROVO 

9E59 


VAIA 9E79 
END Or ASSEMBLY 


commenti onde evitare fatali “Syntax Er- 
ror”. Quando invece si trova di fronte a 
Goto @ o Gosub @ va alla ricerca della 
label indicata e punta alla normale routine 
dell’interprete dopo aver sostituito al no¬ 
me il numero di riga trovato. Naturalmen¬ 
te al di fuori di questi casi ritorna alla 
Chargct come se nulla fosse successo. L’e¬ 
secuzione delle altre istruzioni non viene 
minimamente alterata e rimangono quindi 
ancora possibili i Gosub e Goto numerici. 
Per chi volesse saperne di più, o apportare 
qualche modifica, è disponibile il listato i 
commentato della routine di gestione in 
Assembly. L’occupazione effettiva di me¬ 
moria va da $9 Eoo a $9EE6 per cui rimane 
spazio sino a $9FFF per ulteriori routine di 
utilità. Volendo si potrebbe rilocare tutto a 
$9 Foo perdendo così solo 256 byte di 
RAM. Chi volesse usare un diverso carat¬ 
tere per il riconoscimento delle label potrà 
sostituire solo la direttiva Token = $40 con 
il valore ASCII del simbolo scelto e rias¬ 
semblare tutto. Volendo modificare diret¬ 
tamente in RAM basterà porre il nuovo 
valore agli indirizzi $9E25 e S9E42. 

Il programma BASIC di caricamento (li¬ 
stato 2) dovrà essere caricato come primo 
ed eseguito immediatamente. Da quel mo¬ 
mento si potranno utilizzare programmi 
con label simboliche. Attenzione ai valori 
Data perché sono tanti, ed è molto facile 
commettere errori di battitura con le con¬ 
seguenze purtroppo ormai note. 

Per chiarezza viene fornito anche un sem¬ 
plice programma (listato 5) di calcolo del¬ 
l’area del triangolo che fa uso di tutte le 
nuove possibilità offerte dall’uso di label 
esplicative. Esse possono avere qualunque 
lunghezza inferiore a 2 5 5 caratteri sempre 
però precedute dall’indicatore @ e com¬ 
prendere spazi. Si è rivelato molto utile 
spostarle verso destra di alcuni spazi affin¬ 
ché siano facilmente visibili durante la let¬ 
tura del programma, ma attenzione a non 
aggiungerne all’interno delle label stesse, 
altrimenti diventerebbero irriconoscibili 
alla routine di gestione. Una piccola limit¬ 
azione per finire. Una label non può essere 
la prima istruzione di un programma, 
d’altro canto è sempre possibile farla pre¬ 
cedere da una Rem quindi la cosa non è poi 
così drammatica.1 
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I SEGRETI 


PERSONAL 


Uso delle label simboliche 


COMMODORE C 64 


Listalo 2-11 programma caricatore BASIC. 


Seguito listato caricatore BASIC. 


10 GOSUBl000 

1 1 REM 

20 PRINT"{CLR}":PRINT"{ 11 GIU'} 

{ 11 DES}CARICATO 11" 

2 8 REM 

29 REM ATTIVAZIONE 

30 SYS ZZ:CLR:NEW 

35 REM PROCEDURA ATTIVATA 
4 0 END 

1000 REM PROGRAMMA IN LINGUAGGIO 

1001 REM MACCHINA DA CARICARE DA 

1002 REM $9E00 

1003 REM 

1005 DATAI 69,76,1 33,1 24,1 69,1 3,1 33,1 25,1 6 
9,158 

1010 DATAI 33,1 26,96,1 32,254,72,1 65,1 23,20 
1,8 

1 020 DATAI 76,1 3,1 04,1 64,254,201 ,58,1 76,5, 
76 

1 030 DATAI 28,0,1 64,254,96,1 04,201 ,64,208, 

4 

1 040 DATAI 69,1 4 3,208,235,201 ,141 ,240,4,20 
1,137 

1050 DATA208,227,1 33,253,1 60,0,200,1 77,1 2 
2,240 

1060 DATA8,201,32,240,247,201,64,240,4,16 

5 

1070 DATA253,208,206,32,136,158,176,3,76, 
227 

1080 DATAI 68,1 04,1 04,1 69,1 67,72,169,1 73,7 
2,165 

1090 DATA253,201 ,141 ,208,26,1 69,3,32,251 , 

1 63 

1 100 DATAI 65,1 23,72,1 65,1 22,72,165,58,72, 
165 

1110 DATA57,72,1 69,1 41 ,72,32,1 21 ,1 58,76,1 
74 

1120 DATAI 67,1 60,2,1 77,2 51 , 1 33,20,200,1 77 

-r2n- 

1130 DATAI 33,21 ,32,163,1 68,96,24,1 65,43,1 
33 

1140 DATA2 51,105,4,141 ,227,158,1 65,44,1 33 
,252 

1150 DATAI 05,0, 1 41 ,227,158,132,2 55,164,25 
5,32 

1160 DATA226,158,201,32,208,5,32,218,158, 
208 

1170 DATA247,209,1 22,208,8,200,32,21 8,1 58 
,208 

1180 DATA246,56,96,160,0,177,251,72,24,10 
5 

1190 DATA4,141,227,158,200,177,251,240,16 
,72 

1 20Q DATA105,0,141 , 228,.1.5a.,-1 04,1.33. r 2.S2 r l-0- 

4,133 

1210 DATA251,164,255,208,200,104,24,96,23 
8,227 

1 220 DATAI 58,208,3,238,228,1 58,1 73,255,25 


5,96 

1245 REM CALCOLA $9E00 IN DECIMALE 

1250 ZZ=9*16t3+14*16t2 

1251 REM 

1252 REM DIVIDE IN PARTE ALTA E BASSA 
1 260 ZH=INT(ZZ/256) : ZI=ZZ-ZH*256 

1265 REM 

1267 REM SPOSTA IN BASSO IL TOP 

1268 REM DELLA MEMORIA UTILE AL BASIC 
1270 POKE51,Z1:POKE52,ZH:POKE55,Zl:POKE56 

,ZH 

1305 REM 

1306 REM CARICA LA ROUTINE 
1310 FORK=ZZ TO ZZ+229 

1320 READ X 
1330 POKE K,X 
1 340 NEXT. K 

1345 REM OK TUTTO PRONTO 
1350 RETURN 


Listato 3 - Un programma d'esempio sull'uso della label. 

1 REM UTILIZZO LABEL 

2 REM NEI PROGRAMMI BASIC 

3 REM 

4 REM CALCOLO AREA TRIANGOLO 

5 REM 

6 REM INIZIO PROGRAMMA 
100 @DA CAPO 

110 PRINT "{CLR}" 

1 20 GOSUB (3INPUT BASE _ 

130 GOSUB @INPUT ALTEZZA 

140 GOSUB ^CALCOLA L'AREA 

150 PRINT "AREA = "; AREA 

160 INPUT "CONTINUO (S/N) ";SI$ 

170 IF SI$="N" THEN 190 
180 GOTO @DA CAPO 

190 END 

200 @INPUT BASE 

210 INPUT "BASE = "; BASE 

220 RETURN 

300 (IINPUT ALTEZZA 

310 INPUT "ALTEZZA = ";ALTEZZA 

320 RETURN 

400 0CALCOLA L’AREA 

410 AREA=(BASE*ALTEZZA)/2 

43 0 RETUR N- 
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SERVIZIO SOFTWARE 

Bit e Personal Software propongono ai 
propri lettori i dischi o le cassette dei 
programmi pubblicati. Uso e descrizione 
dei programmi si trovano sui rispettivi 
numeri delle riviste. 





Bit n* 

Programma 

Sistema 

Codice 

Supporto 

38 

Gioco della scimmia 
Spaccamaltoni 

VIC 20 

VI381A 

Cassetta 

Disco 

38 

Planel 

Apple 11 

AP382B 

42 

Apple-Chof 

Apple II 

AP422A 

Disco 

42 

Pro va riflessi 

VIC 20 

VI421B 

Cassone 

45 

Tiny FORTH 

Apple U 

AP452A 

Disco 

45 

All Babà 

ZX Spectrum 

SP451B 

Cassetta 

46 

Forzaquattio 

Apple U 

AP462A 

Disco 

48 

Sunulavolo 

ZX Spectrum 

SP481A 

Cassetta 

48 

Memory Alfa IV 

C 64 

C6481B 

Cassetta 

49 

Scorpion 

Appio II 

AP492A 

Disco 

50 

Fp-Plot 

Apple II 

AP502A 

Disco 

50 

Prima e Tor 2 a 

ZX Spectrum 

SP501B 

Cassetta 

51 

53 

Magicatalog 

Partila a golf 

Apple li 

VIC 20 

AP512A 

VI531A 

Disco 

Cassotta 

53 

Analisi numerica 

C 64 

C6531B 

Cassetta 

53 

PL/Bit: il compilatore 

Appio II 

AP532C 

Disco 

54 

Costellattons 

Apple U 

AP542A 

Disco 

54 

Come polarizzare 
i transistor col C 64 

C64 

C6541B 

Cassetta 

58 

Memory Omega I 

C 64 

C6582A 

Disco 

58 

Copy disk per C 64 

C 64 

C6582B 

Disco 

59 

Checksum 64 

C 64 

C6592A 

Disco 

59 

Checksum 64 

C 64 

C6591B 

Cassetta 

59 

Data-Bank 

ZX Spectrum 

SP591C 

Cassetta 

60 

Life HGR 

Apple II 

AP602A 

Disco 

60 

Tutti pittori 

C 64 

C6601B 

Disco 

60 

Difesa dolla Terra 

C 16 

C1601C 

Casse tla 

60 

Lost on thè pack 

Sega 

SE601D 

Cassetta 

60 

Setdata o Wordproc 

ZX Spectrum 

SP601E 

Cassetta 

60 

Il Barone Rosso 

TI99/4A 

T1601F 

Cassetta 

60 

Word processor 

C 64 

C6602G 

Disco 

60 

Othello 

VIC 20 

VI601H 

Cassetta 

61 

Disegno di mobili 
componibili 

C 16 

C16I1A 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6611B 

Cassetta 

61 

Esperimento di Millikan 

C 64 

C6612C 

Disco 

61 

Disegnare in alta risoluzione 

ZX Spectrum 

SP611D 

Cassetta 

61 

Printing music 

T199/4A 

TISI IE 

Cassetta 

61 

Musica facile 

Sega 

VIC 20 

SE611F 

Cassetta 

61 

VIC-Cale 

VI611G 

Cassetta 

62 

Gestione conto corrente 

C 64 

C6622A 

Disco 

62 

Gioco della tombola 

T199/4A 

TI621B 

Cassetta 

62 

Aspe: lo Spoeti um 
contro la cane 

ZX Spectrum 

SP621C 

Cassetta 


Bit B* 

Programma 

Slalom* 

Codice 

Supporto 

63 

Operazioni in pagina grafica 

Appio II 

AP632A 

Disco 

63 

Grafici a barro verticali 
affiancato 

C 16 

C i 631B 

Cassetta 

63 

Contabilità casalinga 

C64 

C6632C 

Dùco 

63 

Disegnare sullo schermo 
con un MSX 

MSX 

MS631D 

Cassetta 

63 

Over BASIC 

ZX Spectrum 
T199/4A 

SP631E 

Cassetta 

63 

Le otto Regine 

Egitto 2000 

T1631F 

Cassetta 

63 

VIC 20 

VI631C 

Cassetta 


P.S. n* 

Programma 

Sistema 

Codice 

Supporto 

3 

La carta del cielo 

Collisione 

Apple II 

AP032A 

Disco 

4 

Interi in precisione multipla 
Grafica 3D 

Apple U 

AP042A 

Disco 

5 

Pretty printer 

Shape table 

Apple U 

AP052A 

Disco 

7 

Data base modulare 

Apple U 

AP072A 

Disco 

14 

Tool-Kit 

C 64 

C6141A 

Cassetta 

i9 

Type-Wnter 

VIC 20 

VI 192A 

Disco 

20 

Scopa 

C 64 

C6201A 

Cassetta 

30 

Geo-Race 

ZX Spectrum 

SP301A 

Cassetta 


Tutti I dicchi m U cassette dui programmi tono la randlta a L. 15.000 
ciascuno. 


Per richiedere i programmi in contraaaegno, pagando diretiamente al postino la cifra indicata, inviare il seguente tagliando 


Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 

--- 


Inviatemi i seguenti nastri e/o dischi con i pro¬ 
grammi pubblicati su Bit - Personal Software 


GRUPPO EDITORIALE JACKSON 


Cod. I_I_I_I_I_L 

Cod. I I 1 I I I 

XT Òd. I _L I' I I 1 : 

cod. 1 I I I 1 L 

+ SPESE PÓSTALI 
(contributo fisso) 




i .t. 11151010101 




i .t. i i i i i i 

Nome. 



-1 -rtr-i- 1 - 1 - 1 - 1 -i- 




1 .1. 1 1 1 I 1 I 

CAP. 



i |3|0|0|0| 

Città. 




TOTALE L. Lai_I_I_L 


t—ee l i m ereste— eee—e essasi 


che pagherò al postino alla consegna del pacco 


Firma. 
















































I SEGRETI DEI PERSONAL 



di Martino Sangiorgio 


Caratteri & colori 


M olti possessori di MZ-700 si 
saranno chiesti come mai, 
avendo tale computer la 
possibilità di visualizzare 
solo 8 colori, nel primo dei programmi 
dimostrativi in dotazione si possono vede¬ 
re tutta una serie di colori non dichiarata 
nel manuale. In più, alcuni avranno anche 
avuto delle difficoltà nel comprendere l’u¬ 
tilizzo del secondo set di caratteri grafici. 
Ma andiamo in ordine. 

Lo Sharp MZ-700 dispone di una RAM 
video di 4 Kbyte. I primi 2 Kbyte (dall’in¬ 
dirizzo SDooo all’indirizzo SD7FF) ven¬ 
gono utilizzati per memorizzare i caratteri 
da visualizzare, mentre i successivi 2 Kbyte 
(dall’indirizzo $D8oo all’indirizzo SDFFF) 
vengono utilizzati per memorizzare, per 
ognuno dei caratteri presenti nella prima 
zona della RAM video, le corrispondenti 
informazioni sui colori di sfondo c di 
primo piano. 

I caratteri vengono memorizzati nella 
prima zona della RAM video non con la 
loro codifica ASCII, ma con una codifica 
particolare. Tale codifica, detta “di visu¬ 
alizzazione” o “di schermo”, è formata da 
due gruppi di 256 caratteri, visibili alle 
pagine 157 e 159 del manuale. La scelta del 
primo o del secondo set di caratteri dipen- 
de dalle informazioni relative al colore. 

come vedremo più avanti. 

Di norma, a fronte, ad esempio, di una 
istruzione Print, vengono innescate delle 
subroutine del programma Monitor che 
convertono i codici ASCII in codici di 
schermo. Comunque, essendo anch’essa 
un’area RAM, è possibile modificare la 
RAM video, per esempio con delle Poke, 
in modo da visualizzare qualsiasi carattere ' 
voluto. 

E veniamo ora al colore. A pagina 133 del 
manuale è riportata la struttura del byte 
che contiene le informazioni sul colore. Da 
-tale struttura si nota, che i primi tre b it (da_ 

Do a D2) sono utilizzati per il colore di 
sfondo del carattere, che il quarto bit (D3) 
non è usato, che i successivi tre bit (da D4 a 
D6) sono utilizzati per il colore di primo 
piano del carattere, e che il bit più significa¬ 
tivo (D7) non è utilizzato. 
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Sembrerebbe quindi di avere a disposi¬ 
zione solo 64 combinazioni di colore (8 di 
sfondo per 8 di primo piano), e che i due bit 
non utilizzati (il quarto e l’ottavo) non 
abbiano altro effetto che ripetere combina¬ 
zioni di colore già verificatesi. 

Per controllare ciò utilizziamo il pro¬ 
gramma 1. Esso riempie 11 righe del video 
(dall’indirizzo SD028 all’indirizzo SDiDF 
della RAM video) con il carattere pieno 
(codice di schermo $43, vedere a pagina 
15 7 del manuale), lasciando vuota la zona 
sottostante. Imposta poi il colore sia delle 
11 righe precedenti, sia delle 11 riche sotto¬ 
stanti (cioè dall’indirizzo SD828 all’indi¬ 
rizzo SDB97), variando il colore impostato 
da o a 255. In tal modo il video viene 
suddiviso in due finestre, ognuna di 11 
righe: nella finestra superiore verrà visu¬ 
alizzato il colore di primo piano, mentre in 
quella inferiore il colore di sfondo. Alla 
fine di ognuna delle 256 combinazioni di 
colore verrà chiesto se si vuole proseguire, 
in modo da dare tempo, a chi lo volesse, di 
prendere appunti. 

Eseguiamo ora il programma. Col colore o 
si avranno 22 righe nere (carattere nero su 
sfondo nero), col colore 1 si avranno le 
prime 11 righe nere e le successive blu 
(carattere nero su sfondo blu) e cosi via. 
Per i primi 8 valori del colore (da o a 7) si 
avrà il nero per il carattere e tutti gli 8 
colori per lo sfondo. 

Dal valore 8 al 15 verranno ripetute le 
combinazioni di colore appena viste (carat¬ 
tere nero sugli 8 colori di sfondo), e ciò 
dimostra che il quarto bit (D3) del byte del 
colore è effettivamente inutilizzato. Dal 
valore 16 al 2 s si avrà il bl u come carattere e 

gli otto colori come sfondo, dal 24 al 31 la 
ripetizione del blu come carattere, e così 
via, fino al valore 127 del colore, con l’or¬ 
dinamento dei colori visibile a pagina 79 
del manuale (Nero, Blu, Rosso, Porpora, 
Verde, Azzurro, Giallo, Bianco). 

Al valore 128 di colore si vede ancora il 
nero del carattere e il nero di sfondo, e 
sembrerebbe quindi iniziata la ripetizione 
delle prime 128 combinazioni di colore. 
Ma non è proprio così. Infatti, al valore 
129, corrisponde ancora, come al valore 1, 
il nero di primo piano e il blu di sfondo, ma 
è cambiata il carattere visualizzato nelle 

prime 11 righe. Esso, infatti, non è più il 
carattere pieno, ma è un altro carattere 
grafico particolare. Lo andiamo a cercare 
sul manuale e lo troviamo, con la codifica 
S43, nel secondo set di caratteri grafici, a 
pagina 159. Questo dimostra che il bit più 


significativo del byte del colore è effetiva- 
mente inutilizzato per il colore (infatti, da 
128 a 25 5 si avranno le stesse combinazioni 
di colore viste per i valori da o a 127), ma 
permette di evidenziare i caratteri presenti 
nel secondo set grafico. 

In sostanza, se stiamo evidenziando un 
carattere del primo set grafico, con un 
determinato colore, basta aggiungere 128 
al byte del colore per evidenziare il caratte¬ 
re, con uguale codifica, del secondo set 
grafico, tenendo invariati i colori di sfondo 
e di primo piano. 

Ma non è ancora finita. 

Abbiamo visto che i colori utilizzabili 
sono effettivamente solo 8, il che non 
spiega ancora tutti i colori visibili nel pro¬ 
gramma dimostrativo. Digitiamo allora il 
programma 2. Esso è molto simile al prece¬ 
dente. Riempie 22 righe del video con il 
carattere $EF (vedere a pagina 157 del 
manuale), e imposta quindi un colore da o a 
25 5 nella stessa zona del video. 

Eseguiamo il programma. Al valore 00 
avremo ancora il video nero, ma già al 
valore 1 vediamo il video colorarsi di un 
blu diverso dal solito, più scuro. Anche il 
rosso (valore 2 di colore) è più scuro del 
solito. 

Come si spiega ciò? La chiave di tutto è la 
particolare conformazione del carattere 
che abbiamo utilizzato, fatta di 8 punti di 
sfondo di uguale dimensione. A causa della 
particolarità del televisore (il monitor, più 
preciso, non permette completamente ciò), 
i colori del primo piano e dello sfondo 
sembrano fondersi, originando un colore 
diverso da entrambi. 

P roseg u ite neH’elaborazione del pro- 

gramma 2 e vedrete quante altre combina¬ 
zioni otterrete, alcune molto piacevoli, alt¬ 
re un po’ meno. Annotatevi le migliori 
(compreso il valore del colore che le ge¬ 
nera), in modo da poterle usare in futuro, 
ad esempio per comporre titoli colorati per 
i vostri programmi. Possiamo ora scrivere 
ed eseguire il programma 3. Esso permette 
il riempiere 22 righe dèi video col carattere 
voluto e di assegnargli il colore voluto. 
Potremo quindi verificare tutto quanto 
visto finora. ■ 








Caratteri & colori 


SHARP MZ-700 


Listato 1 - Visualizzazione delle combinazioni del colori di primo 
piano e di sfondo del caratteri. 

10 PRINT"8" 

20 FORJ=$D028TO$D397:POKEJ,$EF:NEXTJ 
30 FORI=0TO255 

40 CURSOR 0,0:PRINT"COLORE "; I 
50 F0RJ=$D828T0$DB97:P0KEJ, I iNEXTJ 
60 CURSOR 0,24:PRINT"UUOI CONTINUARE?"; 
70 GET C$ = IF C$="" GOTO 70 
80 IF C$="N" GOTOt10 
90 IF C$O"S"GOTO70 
100 NEXTI 
I 10 END 


Listato 2 - Visualizzazione di tutta la gamma di colori ottenibili con 
l'utlllzzo del carattere SEF. 

10 PRINT"8“ 

20 FORJ=$D028TO$D1DF:POKEJ,$43:NEXTJ 
30 FORI=0TO255 

40 CURSOR 0,0:PRINT"COLORE "Jl 

50 F0RJ=$D828T0$DB97iPOKEJ,IiNEXTJ 

60 CURSOR 0,24:PRINT"UUOI CONTINUARE?"; 

70 GET C$:IF C$="" GOTO 70 

80 IF C$="N" GOTOI10 

90 IF C$O"S"GOTO70 

100 NEXTI 

110 END 


Listato 3 - Visualizzazione del carattere voluto con la combinazione 
di colori scelta. 


10 PRINT"B" 

20 CURSOR 0,0 -'PRI NT "CARATTERE" :CURSOR20, 
0:PRINT"COLORE" 

30 CURSOR 12,0JINPUTCA$ ■ IFC0ALCCA$3<03+ C 
UAL CÈA$ ) > 255 3 GOTO30 

40 CURSOR 28,0:INPUTCL$:IFCUALCCL$J<03+C 
UAL CCL$3 > 2551GOTO40 

50 FORJ=$D028TO$D397:POKEJ,UALCC.A$3 :NEXT 
J 

60 F0RJ=$D828T0$DB97:P0KEJ,UALCC.L$3 :NEXT 
J 

70 CURSOR 0,24:PRINT"UU0I CONTINUARE?"5 
80 GET C$ : IF C$="" GOTO 80 

90 IF C$="N" GOTOI20 
100 IF C$O"S"GOTO80 
110 GOTO30 
120 END 
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I SEGRETI DEI PERSONAL 



Da cassetta 
a microdrive 

I microdrive consentono un rapido 
accesso a programmi e dati. Ciò che 
prima richiedeva minuti per essere 
caricato, si rende ora disponibile nel 
giro di qualche secondo. Chi abbia provato 
i microdrive difficilmente si rassegna ad 
usare le cassette. 

Il software commerciale disponibile diret¬ 
tamente su microdivc, d’altra parte, è pra¬ 
ticamente inesistente, per il costo e la diffi¬ 
coltà di produzione. Come se non bastasse, 
ben poche sono le case disposte a dare 
indicazioni per il trasferimento dei loro 
prodotti, nel timore di incrementare la “pi¬ 
rateria” (argomentazione piuttosto debo¬ 
le, visto che sono sufficienti due regi¬ 
stratori per ottenere tutte le copie che vo¬ 
gliamo). Fanno eccezione le case produt¬ 
trici di software “serio” (Tasman, Comp- 
bell, Hisoft), che forniscono tutte le infor¬ 
mazioni necessarie. 

Perché sono necessarie informazioni da 
parte del produttore, per il trasferimento 
di un programma da cassetta a microdrive? 
Perché la gran parte del software, di fatto 
dà, durante questa operazione, parecchi 
problemi, per comprendere i quali è neces¬ 


sario prendere brevemente in considera¬ 
zione la meccanica di funzionamento dei 
microdrive. 

Osservando, sul manuale dello Spectrum, 
la mappa di memoria, notiamo due aree, 
denominate rispettivamente “Microdrive 
map” e “Channel information”. Con l'inse¬ 
rimento di Interfaccia i e microdrive, que¬ 
ste aree si “gonfiano” di }i e 595 byte. La 
mappa contiene informazioni sulla distri¬ 
buzione dei vari blocchi (di 512 byte cias¬ 
cuno) all’interno della cartuccia, mentre i 
595 byte di informazioni comprendono un 
buffer di 512 byte (in grado quindi di con¬ 
tenere un blocco) ed alcuni altri dettagli, 
come il nome ed il tipo del file e così via 
(per maggiori informazioni consultate 
l’appendice 5 del manuale dell’interfaccia). 

Durante le operazioni che coinvolgono i 
microdrivc, i vari blocchi vengono trasfe¬ 
riti dalla cartuccia alla memoria o vicever¬ 
sa, a seconda che sia in corso un Load o un 
Save. Il problema è che, per creare lo spa¬ 
zio necessario, programma e variabili 
eventualmente presenti in memoria devo¬ 
no esse spostate in avanti di 32-f- 595 =627 
byte. Inoltre, tanto per complicare le cose, 
l’Interfaccia 1 aggiunge 58 nuove variabili 
all’area delle variabili di sistema. In conclu¬ 
sione, il programma BASIC viene a trovar¬ 
si ad un indirizzo di memoria maggiore di 
circa 685 byte rispetto al normale. Ma per¬ 
ché questo costituisce un problema? 

I blocchi di linguaggio macchina che nor¬ 
malmente andrebbero a finire subito al di 
sopra del BASIC, rischiano in questa situ¬ 
azione di sovrapporsi al programma o, 


peggio ancora, di “sporcare” parte della 
mappa del microdrive o dell’area dei cana¬ 
li. In ambedue i casi il sistema andrà in 
“crash” mentre il microdrive stà girando, 
costringendoci a togliere l’alimentazione 
con il rischio di danneggiare le informazio¬ 
ni contenute sulla cartuccia. 

I programmi possono essere suddivisi in 
tre categorie. Quelli facili da trasferire su 
midrodrive, poiché non occupano col lin¬ 
guaggio macchina indirizzi di memoria 
troppo bassi. Ci sono poi quei programmi 
che richiedono di essere caricati ad un indi¬ 
rizzo più elevato di quello a cui è previsto 
che funzionino, e in un secondo tempo 
spostati al loro corretto indirizzo. L’ultima 
categoria, infine, comprende i programmi 
che, pur richiedendo il medesimo procedi¬ 
mento di caricamento e trasferimento, so¬ 
no talmente lunghi da non poter essere 
caricati interamente; questo perché hanno 
bisogno anche di quei 700 byte utilizzati 
per il funzionamento del microdrive, non¬ 
ché dello spazio occupato dalla routine di 
trasferimento. In questo caso si dovrà ri¬ 
correre ad un caricamento a blocchi, nor¬ 
malmente due, che verranno trasferiti uno 
alla volta. La prima categoria comprende i 
programmi scritti interamente in BASIC 
(fermateli con Break e quindi salvateli in 
modo Auto-Start sulla cartuccia) e quelli 
che, pur contenendo blocchi di linguaggio 
macchina, utilizzano indirizzi elevati per 
essere conservati. Si tratta in pratica di tutti 
i blocchi che hanno come indirizzo di ini¬ 
zio valori superiori a 25.000, con eventuali 
differenze a seconda delle dimensioni del- 


Llstato 1 - Lettore di header. 


1 

2 

3 

4 

5 


REM 

REM 

REM 

REM 


********************** 


REM * 


PROGRAMMA 1 
Lettura Leader 


* 

* 

* 

* 


120 IF 0=0 TMEN PRINT ' 
ERRORE DI CARICAMENTO'': 

0 

130 PRINT .Nome 

140 FOR i =USR "a''+l T0 
o 

'150 PRINT CHR$ PEEK i 


G0 T0 21 


USR "b"+ 



6 REM * * 

7 REM ********************** 

3 REM 

10 6CRDER 0: PAPER 0: INK 7 

20 RESTORE 

30 FOR i =USR "0" TO USR "0''+13 

40 READ a: POKE i,a: NEXT i 

50 POKE USR ”0"+5,PEEK 23675 
•50 POKE USR "O" +6, PEEK 23676 

160 NEXT i 

170 PRINT " "'Tipo : '';t$(PE 

EK USR "a '' +1) 

180 LET b =USR "b" 

190 PRINT "IniZiO : "jPEEK (b 

+5)+256*PEEK (b+6) 

200 PRINT 'Lunghezza: ",PEEK (b 
+ 3) +256*PEEK tb + 4);" byte'' 

210 POKE 23692,255 


70 DÌM 11 ( 4,5 i 

30 FOR i=l TO 4 

90 READ t* ii ) : NEXT 1 

100 LET 0 =USR USR “ 0 " 

110 IF PEEK USR "b"=0 THEN GO T 

0 100 

220 POKE USR "b",0 

230 GO TO 100 

1000 DATA 55,62,0.. 221,33,0,0,17, 

17,0,205,86,5,1,1,0,216,11,201 

1010 DATA "Basic","Data",“Data”, 

"By tes " 
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Da cassetta a microdrive 


ZX SPECTRUM1 


l’eventuale programma BASIC di carica¬ 
mento. Il programma i dà parecchie infor¬ 
mazioni utili su ciò che è registrato su 
cassetta: il numero di linea dell’Auto-Start, 
per i programmi BASIC, l’indirizzo di ini¬ 
zio e la lunghezza per i blocchi di linguag¬ 
gio macchina. 

Per utilizzarlo, date Run e quindi fate 
partire il nastro che vi interessa, al normale 
volume di caricamento. Per ciascun blocco 
annotatevi, o fate stampare, tutti i dettagli. 
Un output tipico è: 

Nome: Invaders 
Tipo: byte 
Start: 16.384 
Lunghezza: 6.912 byte 

Nome: Invaders 
Tipo: byte 
Start: 32.768 
Lunghezza: 32.768 byte 

Questo può essere considerato il formato 
normale: programma BASIC di carica¬ 
mento, schermata introduttiva e blocco di 
linguaggio macchina. 

Dopo aver dato New caricate con Merge il 
BASIC. Il suo contenuto sarà qualcosa del 
tipo: 

io CLEAR 32767 

20 LOAD “"CODE: LOAD“” CODE 
30 PRINT USR 35000 

Per quanto riguarda la schermata introdut¬ 
tiva, sarà meglio lasciarla perdere; questo 
tipo di introduzione ha infatti lo scopo di 
“intrattenere” l’utilizzatore per il tempo 


(molto) necessario al caricamento del 
blocco in linguaggio macchina che rappre¬ 
senta il programma vero e proprio. Il pro¬ 
blema dell’attesa non esiste con il micro¬ 
drive, e d’altra parte lo spazio sulla cartuc¬ 
cia è prezioso (o sarebbe meglio dire co¬ 
stoso?). Correggete perciò il BASIC in 
questo modo: 

10 CLEAR 32767 

20 LOAD ★“M”; 1 ;“Invaders.c” CODE 
30 PRINT USR 35000 

Notate come sia stato necessario cambiare 

11 nome del blocco in linguaggio macchina, 
poiché non è possibile avere su di una 
stessa cartuccia due file con lo stesso nome. 
Salvate il BASIC così modificato in modo 
che vada in Auto-Run dalla linea io. Quin¬ 
di date: 

CLEAR 32767: LOAD CODE 

per caricare il linguaggio macchina dalla 
cassetta. Ora salvatelo sulla cartuccia 
dando, ad esempio: 

SAVE ★“M”; 1 ;“Invaders.c” CODE 
32768,32768 

A questo punto reinizializzate il sistema 
con: 

RANDOMIZE USR o 

e provate a caricare tutto il programma dal 
microdrive. In caso di problemi, ricontrol¬ 
late gli indirizzi e la lunghezza. 

Una strategia diversa è necessaria per i 
programmi con blocchi di linguaggio mac¬ 


china che iniziano al di sotto dell’indirizzo 
25000 (pressappoco). Immaginate ad 
esempio una situazione in cui il blocco in 
linguaggio macchina sia composto da 900 
byte, ed inizi all’indirizzo 24000. Caricarlo 
così com’è da microdrive significherebbe 
finire sopra l’area dei canali ed il BASIC. 

La soluzione consiste nel caricarlo ad un 
indirizzo più elevato, e quindi spostarlo in 
basso al suo indirizzo corretto. Il pro¬ 
gramma 2 fa proprio questo, servendosi 
della potente e velocissima istruzione in 
linguaggio macchina Ldir. 

Per proseguire con lo stesso esempio, la 
prima cosa da fare sarà caricare il blocco 
dalla cassetta all’indirizzo, ad esempio, 
30000. Fate girare il programma 2, e date¬ 
gli i seguenti valori: 

• inizio blocco: 30.000; 

• lunghezza blocco: 9.000; 

• nuovo indirizzo: 24.000; 

• indirizzo di esecuzione: 24.000. 

L’indirizzo di esecuzione può essere tro¬ 
vato esaminando il blocco BASIC del pro¬ 
gramma stesso; sarà l’indirizzo cui si rife¬ 
risce l’istruzione ...Usr.... 

Il programma 2 pone all’indirizzo “inizio 
-P lunghezza”, nel nostro caso 39000 
(3000+9000), una routine di copia lunga 
14 byte. Salvate tutto quanto (linguaggio 
macchina e routine) su cartuccia con un 
comando tipo: 

SA VE ★“M”;i;“Nome file” CODE 
30000,9014 

Notate come la lunghezza sia stata aumen- 


Llstato 2 - Programma per II trasferimento di blocchi di linguaggio 
macchina. 


2 

3 

4 

5 
5 
7 
3 

10 

6 ) 

20 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

DEF 

DEF 


********************* 


* * 

* PROGRAMMO 2 * 

* * 

* copia di blocco * 

* * 


********************* 

FN l (X) =X-256*INT CX/2S 
FN h ( X i =INT (X/256Ì 


100 let startrt=inizio+iungh 

110 LET X=0 
120 READ V 

130 IF V =999 THEN PRINT .Ind 

i rizzo inizio routine: ";startrt 

. STOP 

140 poke startrt+x,v 
150 LET X =X +1 
160 G0 TO 120 

1000 DATA 33,FN l (inizio) , FN hCi 
Tizio) , 1, FN l ( 1 un9h ) , FN- h uungh ) 
,17,FN l (desti ,FN n (desti ,237.17 
S , 195, FN llesec),FN h leseci 
1010 DATA 999 


30 INPUT "Inizio blocco _ 

■ ; 1 n 1 z 1.0 

40 INPUT "Lunghezza blocco 
lungh 

50 input "Nuovo indirizzo 
" ;des t 

50 input "Indirizzo di esec. 
"; ese c 
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Da cassetta a microdrlve 


ZX SPECTRUM 


tata di 14 byte per salvare blocco e routine. 

Modificate quindi il BASIC per poter 
caricare da microdrive il linguaggio mac¬ 
china, e l’indirizzo di esecuzione (...Usr 
nnnnn) affinché sia quello della routine di 
copia. Salvatelo sulla cartuccia in modo 
Auto-Run e quindi reinizializzate il si¬ 
stema e provate a caricare. 

E per i blocchi troppo grossi che non 
possono essere spostati con la tecnica ap¬ 
pena vista? Supponiamo, ad esempio, di 
aver un blocco di linguaggio macchina 
lungo 41.535 byte con inizio dall’indirizzo 
24000, e che quindi non lascia lo spazio 
necessario ai microdrive. 

Ciò che dobbiamo fare in questo caso è 
spezzare il blocco in due, caricare la parte 
superiore al suo corretto indirizzo, la parte 
bassa del Display File ed utilizzare la routi¬ 
ne di copia del programma 2 per trasferire 
la parte inferiore al suo corretto indirizzo, 
dopo che tutte le operazioni con i micro¬ 
drive siano terminate. Per proseguire con 
l’esempio, date prima di tutto: 

CLEAR 23999: LOAD CODE 

Copiate quindi i primi 1.000 byte nel Di¬ 
splay File, usando un breve programma 
tipo: 

io FOR x = o TO 999 

20 POKE i6386 + x,PEEK(24ooo-|-X) 

30 NEXT x 

dopodiché salvateli in un file temporaneo 
su nasto con: 

SA VE “temp” CODE 16386,1000 


Date ora un CLEAR 24999 P er create lo 
spazio per il funzionamento dei microdri¬ 
ve, e salvate la parte superiore del blocco su 
cartuccia con: 

SA VE *;M;i;“Parte alta” CODE 
25000,40535 

Reinizializzate il sistema, caricate il pro¬ 
gramma 2 e fatelo girare con Goto 1 o e non 
con Run, che cancellerebbe il Display File, 
dandogli questi dati: 

• inizio blocco: 16.386; 

• lunghezza blocco: 1.000; 

• nuovo indirizzo: 24.000; 

• indirizzo di esecuzione: 24.000. 

Salvate il tutto su microdrive con: 

SAVE ★ “M”;i;“Partc bassa” CODE 
16386,1014 

Notate ancora una volta come la lunghezza 
sia stata aumentata di 14 per includere la 
routine di copia. Infine, modificate il BA¬ 
SIC affinché carichi “Parte alta” e “Parte 
bassa” da microdrive prima di eseguire: 

PRINT USR 17386 

Salvatelo sulla medesima cartuccia, reini¬ 
zializzate il sistema e, dopo aver fatto i 
debiti scongiuri, provate a ricaricare. Un 
avvertimento riguarda lo stack. Controlla¬ 
te sempre la sua posizione, poiché se venis¬ 
se sovrascritto da qualcosa il “crash” del 
sistema sarebbe certo. La posizione dello 
stack è comunque controllata dall’istruzio¬ 
ne Clear, e questo può evitare molti proble¬ 
mi di questo tipo. 


Con l’aiuto delle idee viste fin qui, è possi¬ 
bile convertire moltissimi programmi per 
l’uso con i microdrivc. Il tempo speso per il 
caricamento diventerà trascurabile, e ciò 
significa poter spendere più tempo utiliz¬ 
zando i programmi, e meno in attesa del 
loro caricamento. 

Per rendere ancora più rapida la scelta dei 
vari programmi, può essere una buona 
idea realizzare un programma menu su 
ciascuna cartuccia, chiamato “Run”, che 
elenchi tutti i programmi disponibili. Il 
programma 3 fornisce un esempio di pro¬ 
gramma menu, che riduce le operazioni 
per il caricamento di un qualsiasi pro¬ 
gramma presente sulla cartuccia attivan¬ 
dolo con la pressione di tre tasti: Run, 
Enter e n, dove n è il codice del program¬ 
ma scelto. ■ 


Listato 3 - Tipico file di menu per cartuccia microdrlve. 

1 REM ********************* 


2 REM * * 

3 REM * PROGRAMMO 3 * 

4. REM * * 

5 REM * esempio di fife * 

6 REM * "run" * 

7 REM * * 


3 REM ********************* 

9 REM 

10 BORDER 0: PAPER 0: INK 7 
20 PRINT CHR$ 16;CHRS 6;"MS 
VOI 07 3/5/85" 

— S-?Sì(ST”"l - Fìghter Pilot" — 

50 PRINT "2 - Manie Minef" 

60 PRINT "3 - Jet set Willy" 
4-80 PRINT 

490 PRINT CHR $ 16;CHR$ 6; "0 - U 

scita" 

500 IF INKEY$ = "1" THEN CLS : PR 


INT OT 10.9; "Fighter Pilot": L00 
0 *"m"; l;"Figh te r.c"CODE 30000: 
RANDOMIZE USR 63792 
510 IF INKEY $ *"2" THEN CLERR 30 
000: PRINT RT 10,10;"Manic Miner 
" : LORD *"m"; 1; "Mani c . C’XODE : P 
RINT USR 33792 

520 IF INKEY$="3" THEN CLERR 30 
000: lord *"m"; 1;“Jetset.c"CODE 
: CLERR 25000: PRINT USR 33792 
980 IF INKEY $ = "0" THEN GO TO 10 
000 

990 GO TO 500 
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Quali segreti ci riserva la stampa? 


TEXAS TI99/4A 


di Sergio Borsani 

Quali segreti ci 
riserva la stampa? 

I n questa puntata parlerò della stam¬ 
pante. So che molti non posseggono 
questo dispositivo, d’altra parte 
credo che una buona percentuale di 
coloro non sappiano sfruttarne le grandi 
capacità. Chi scrive dispone di una Epson 
MX-80 Type III, ma non fa alcuna diffe¬ 
renza dal momento che il TI99/4A usa lo 
stesso modello rimarchiato Texas Instru¬ 
ments. Detto per inciso, lo stesso vale per 
l’IBM PC. 

Le caratteristiche di stampa sono ben illu¬ 
strate nel manuale, per cui cercherò di por¬ 
re l’accento sui particolari meno evidenti 
piuttosto che su alcune possibilità alle qua¬ 
li non viene fatto alcun riferimento sullo 
stesso manuale della Texas, ma che sono 
presenti in quello originale della Epson. 

Il computer comunica con la stampante 
tramite una porta seriale RS-232; pertanto 
ogni operazione richiede l’apertura di un 
canale con una Open. Diverso è il caso in 
cui si usi un’interfaccia parallela poiché in 
tal caso la scrittura o il listato di un pro¬ 
gramma si effettuano semplicemente con i 
comandi/istruzioni Lprint e Llist. Nel 
TI99/4A il trasferimento dei dati su stam¬ 
pante avviene previa istruzione Open # 
i; “ RS.a ) a ” o, per ii list a t o, Li st “ R S- a ya” . 
Alla sigla RS-23 2, tra virgolette, dovranno 
seguire alcuni parametri a seconda di come 
sono predisposti i dip-switch interni della 
stampante. Se non vengono modificati i 
dip-switch sarà sufficiente la dicitura “RS- 
232”. Tuttavia è molto frequente una di¬ 
versa taratura della velocità di trasmissione 
dei dati e l’attivazione di otto fili di stampa. 


La velocità di trasmissione è fissata dalla 
casa a 300 bps (bit al sec) e sono attivati 
solo 7 fili di stampa. Una diversa taratura 
richiede una esplicita dichiarazione nella 
Open. Ad esempio. Open # 1: “RS- 
232.BA = 4800.DA = 8” significa che la 
stampante è stata predisposta per ricevere 
dati alla velocità di 4.800 bps e che processa 
parole da otto bit (al posto di sette). Negli 
esempi e nei listati che seguiranno si userà 
l’istruzione Open # i:“RS- 2 32.DA = 8”, 
ma è evidente che ognuno dovrà adattarla 
alle proprie esigenze. Chi non avesse atti¬ 
vato 8 fili di stampa non incapperà in al¬ 
cuna situazione d’errore, ma non potrà 
sfruttare completamente le capacità grafi¬ 
che della stampante. Buon per lui che qui si 
parla solo del modo testo. 

Parliamo ora dei caratteri di controllo. La 


stampa avviene in diverse modalità, con 
caratteri ingranditi, condensati, in gras¬ 
setto, enfatizzati e ancora con diversa larg¬ 
hezza del modulo oppure in modo testo o 
in modo grafico a singola e doppia densità, 
ecc. Tutto si ottiene inviando opportuni 
caratteri di controllo. Pensiamo che tutti 
sappiano che Print # i:Chr$(i4); attiva la 
stampa in doppia larghezza e che Print # 
1 :ChrS(i s); attiva invece la stampa di ca¬ 
ratteri condensati, 132 caratteri per riga. A 
volte si può restare imbarazzati di fronte a 
certe prestazioni. Personal Software, ed 
altre riviste, richiedono possibilmente li¬ 
stati su 40 colonne, per ovvie esigenze di 
impaginazione. Come ottenere la stampa 
su 40 colonne? E semplice, basta inviare i 
seguenti caratteri di controllo: Print # 
i:ChrS(27);Chr$(8i);ChrS(4o);. 


Listato 1 - Prova di stampa con caratteri normali, ingranditi, condensati, enlatizzati e doppi. 


100 
110 
120 
130 
140 
150 
160 
162 
164 
166 
1 70 
100 
190 
200 
010 


OPEN #1: 
PRINT #1 
PRINT 
PRINT 
PRI NT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT. 


#1 

#1 

RI 

RI 

RI 

RI 

RI 

RI 

RI 

#1 

RI 

RI 

Ji-L 


'RS232.DA~8" 

:"CARATTERI NORMALI" 

:CHR* il A); 

:"CARATTERI INGRANDITI" 

:CHR*(20);CHR*(15); 

:"CARATTERI CONDENSATI" 

:CHE*(18); 

:CHR*(14);CHR*(15)5 

:"CARATTERI INGRANDITI E CONDENSATI' 
: CHR* (20) ; CHR* ( .18) ; 

:CHE*(27); CHR*(69); 
ì"CARATTERI ENFATIZZATI" 

CHE* < 27 );CHR* (70) ; 

: CHE* (27) |i CHE* (71) ; 

■"CARATTERI nnPPT" 


220 PRINT R1 : CHE*(27); OHE*<72)5 

230 PRINT R1 :CHR* (27) S CHR* ( 69); CHE*(14); 

240 PRINT #1:"CARATTERI INGRANDITI ED ENFATIZZATI" 
250 PRINT R1 :CHR*(20); 

260 PRI NT #1 :CHR*(27);CHR*(71); 

270 PRINT #1:"CARATTERI ENFATIZZATI E DOPPI" 

200 PRINT RI:CHR*(27);CHR*(70)5 
290 PRINT #1 :CHR*(27) ;CHR*(72); 

300 CL0.SE RI 
310 END 


CARATTERI NORMALI 

C iP» Fi: 1P1 T" T EE Ft I I NGRA1MD I T X 

CARATTERI CONDENSATI _ 

CARATTERI INGRANDITI E CONDENSATI 
CARATTERI ENFATIZZATI 
CARATTERI DOPPI 

CARATTERI INGRANDITI ED ENFATIZZATI 
CARATTERI ENFATIZZATI E DOPPI 
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I SEGRETI DEI PERSONAL 



Chr$(8i) si riferisce alla larghezza del mo¬ 
dulo, ChrS(4o) al numero di colonne. In 
attesa di tali parametri il TI99 invia auto¬ 
maticamente un comando di ritorno car¬ 
rello (CR) ogni 80 caratteri. 

Qualcuno si sarà accorto che, pur specifi¬ 
cando una larghezza di stampa di 132 co¬ 
lonne, ottenibile con caratteri condensati, 
si ha ugualmente un ritorno carrello dopo 


Listato 2 • Prova di stampa In compresso. 

100 OPEN #1:"RS232.DA=8.CR" 

110 PRI NT #1 : OHE*(15);CHE*(27); CHE*(81);CHE*(132); 
120 FOR J=1 TO 6 

130 PRINT #1:"STAMPA SU 132 COLONNE 
140 NEXT J 

150 PRINT #1 :CHR*(13); CHE*(10)j CHR*(18) 

160 CL05E #1 
170 END 


STAMPA SU 1J2 COLONNE STAMPA SU 132 COLONNE STAMPA SU 132 COLONNE STAMPA SU 132 COLONNE STAMPA SU 132 COLONNE STAMPA SU 132 COLONNE 


80 colonne. La ragione sta in quanto detto 
in precedenza e per utilizzare tutta la lar¬ 
ghezza del modulo bisogna inibire il CR 
automatico con: Open # i:“RS-2 3z.DA = 
8.CR”. Tuttavia, annullato il ritorno auto¬ 
matico, sarà necessario provvedere manu¬ 
almente, per cosi dire, con i caratteri di 
controllo Chr$(i3); Chr$(io), corrispon¬ 
denti rispettivamente al ritorno carrello ed 
all’avanzamento riga (vedi listato 2.) 


Un’altra caratteristica che riteniamo non 
venga molto usata, è quella che consente la 
stampa di dati sotto forma di tabelle. Lo 
schermo del TI99/4A è ahimè limitato con 
le sue 28 colonne di testo e volendo tabula¬ 
re i dati elaborati ci si trova subito nei 
pasticci. In un programma pubblicato re¬ 
centemente da Personal Software, Riparti¬ 
zione spese di riscaldamento, il prospetto di 
ripartizione veniva scomposto sul video in 


varie parti comprendenti due o al massimo 
tre colonne di dati. Il problema natural¬ 
mente non si pone sulla stampante, a patto 
di saper usare convenientemente i codici di 
tabulazione orizzontale. La stampante ri¬ 
conosce fino a 12 punti di arresto per la 
tabulazione ed ignora i successivi se ne 
vengono indicati in numero maggiore. I 
codici da inviare sono: Print # 

1 :Chr$(27);ChrS(68);ChrS(n 1 );Chr$(n2);... 
;Chr$(o), dove ni, n2, ... sono i punti di 
arresto espressi in numero di colonna. Per 
tabulare un dato si antepone ad esso il 
codice ChrS(9);. Prima di provare il listato 
3 assicuratevi di annullare i codici dati in 
precedenza, relativi alla larghezza del mo¬ 
dulo e alla stampa condensata. Il breve 
programma usa l’istruzione Print Using 
che si rende indispensabile qualora i dati 
siano in forma numerica; la corretta sintas¬ 
si per l’output sulla stampante è: Print # 
i ,Using“#-## #,#’TN;.-Tra virgolette, — 
dopo la parola chiave Using, c’è il formato 
di stampa che naturalmente può essere 
cambiato a seconda delle esigenze. 

Ciò che manca assolutamente nel manu¬ 
ale della Texas Instruments è il riferimento 
alla sottolineatura e ai caratteri sovrascritti 
(esempio: esponenti nelle formule mate¬ 
matiche) e sottoscritti (esempio: indici). 

Per la sottolineatura bisogna inserire l’op¬ 
zione CR nella Open per impedire il ri¬ 
torno carrello automatico; dopo di che si 
può retrocedere il carrello, senza eseguire 


Listato 3 - Prova di tabulazione orizzontale. 

100 OPEN #1;"RS232.DA=B" 

110 DATA 345,54.8,22,15.3,999,456.3,728. 
4,9813 

120 DATA 1.4,55.6,234,67.9,578.9,47,123. 
6,67 

130 DATA 44, 12.7, £3365,87.3,87. 1,599,834. 
6 , 6.2 

HTCTIRH 


TCHR'fTrOT'r 

CHR*(20); CHE*( 30); CHE*(40)5 CHE*(50);CHR* 
(60);CHR*(70);CHR*(0); 

150 FOR K=1 TG 3 
160 READ N 

170 PRINT #1,USING "####.#":Nj 
180 FOR J=1 TO 7 
190 READ N 

200 PRI NT #1 :CHR*(9); 

210 PRINT #1, USING "####.#": IMS 

220 NEXT J 

230 PRINT #1 

240 NEXT K 

250 CLOSE #1 


260 END 


345. 0 
1.4 
44. 0 


54. 8 

55. 6 
12. 7 


22 . 0 
234.0 
8365.0 


15.3 
67.9 

87.3 


999.0 
578. 9 
87. 1 


456.3 728.4 9813.0 

47»0 123.6 67.0 

599.0 834.6 6.2 
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Quali segreti ci riserva la stampa? 


TEXAS TI99/4A 


100 OPEN #1 :"RS232.DA=B.CR" 

110 PRINT #1 :"TI-99/4A HOME COMPUTER"; 
120 PRINT #1:CHR* C13)5 
130 PRINT #1 :RPT4<"_",22); 

140 PRINT #1:CHR*<13>SCHR*<10) 

150 CLOSE #1 
160 END 


Listato 4 - Esempio di sottolineatura. 


IIc22/4A.-HBME„C0MPyi.ER 


l’avanzamento riga, con il codice ChrS(i 3) 
e sovrastampare la lineetta per le sottoline¬ 
ature, (Fctn) (U). 11 listato 4 riporta un 
breve esempio di sottolineatura. 

Veniamo ora ai caratteri in sovrascrittura, 
intendendo per questa, la stampa di carat¬ 
teri più piccoli di quelli normali, nella metà 
più alta della riga, come accade per gli 
esponenti nelle formule matematiche. Il 
codice da inviare è Esc S -f (n), dove ri'può 


assumere i valori o per la sovrascrittura e 1 
per la sottoscrittura. In pratica bisogna 
scrivere: Print # i:Chr$(27); “S”; ChrS(o); 
Chr$(i 5);. Quando si inviano questi codici 
vengono stampati tutti i caratteri presenti 
nel buffer di stampa e quelli che seguono 
vengono stampati come caratteri sovras¬ 
critti nella metà superiore della riga. La 
stampa avviene in modo unidirezionale e 
in modo doppio. Dopo un primo passag¬ 
gio la carta viene fatta avanzare di 1/216 di 
pollice e la testina passa una seconda volta. 
A causa di questo avanzamento la stam¬ 
pante procede automaticamente all’aggiu¬ 
stamento dell’interlinea per mantenere la 
lunghezza assoluta del modulo. Il codice 


Esc T, cioè ChrS(27);“T”;, annulla la sov¬ 
rascrittura, ma non la stampa doppia. Per 
questo è necessario al termine disattivarla 
con il codice Esc H. 

Il listato 5 offre come esempio una equa¬ 
zione di terzo grado. Si ricorda che i codici 
“H”, “T”, “S”, ecc, possono esser sostitu¬ 
iti con i rispettivi numeri di codice ASCII, 
ChrS(7z),ChrS(84),Chr$(83), ecc. 

Non riteniamo con queste poche righe di 
aver esaurito un argomento che, come ben 
si sa, richiede un intero manuale; pensiamo 
tuttavia di aver toccato alcuni punti di un 
certo interesse che possono aprire la via ad 
un uso più ampio di questo indispensabile 
dispositivo che è la stampante, al di là del 
puro e semplice listato, alla quale viene 
spesso relegata. 

Ci proponiamo, in un prossimo articolo, 
di sviluppare la parte che riguarda la 
stampa in Bit Image, cioè quella in modo 
grafico, alla quale, sia pur indirettamente 
abbiamo accennato nel numero di Marzo 
con il programma Sub Copy e che, come 
avrete modo di vedere, riserva ben altre 
sorprese. ■ 



Listato 5 • Prova di stampa In grassetto con apici e pedici. 


-1 <■><;>■ 

110 

PRINT 

A 1 ■■ Il PPOTO T~S/\- 

#1 :CHR*(27); 

Sii - 

"E"; 

120 

PRINT 

#1:" Y=aX";CHR$(27);"F"! 

130 

PRINT 

#1 : CHR‘4> (27) ; 

"S";chr$(0); 

140 

PRINT 

#1 :CHR*(15); 

" 3 11 9 

150 

PRINT 

#1:CHR*(27); 

"T";CHR*(1B) 

160 

PRINT 

#1:CHR$<27); 

"E"; 

170 

PRINT 

#1:CHR*(27); 

"H"; 

180 

PRINT 

#1: "+bX" ; CI-IR$ (27) ; "F"5 

190 

PRINT 

#1 :CHR$(27)3 

,, S”;CHR$(0) ; 

200 

PRINT 

#1 :CHR$(15); 

Il O II M 

jL ;i 

210 

PRINT 

#1 :CHRt(27); 

"T";CHR*(18) 

220 

PRINT 

#1:CHR*(27>; 

"E"; 

230 

PRINT 

#1 :CHR$(27); 

"H" ; 

-?4 0 . 

RRINT- 

tt-t | ‘JL4ME.X4MÌ - 


250 

CLDSE 

#1 


260 

END 




Y=aX 3 +bX 2 +cX+d 
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Apple 


Vendo Apple II europlus in perfette condizioni a L. 

600.000. Telefonare ore pasti. Ugo Rossini - Via Cado¬ 
re, 31 - 20135 Milano - Tel. 02/4553588 


Compro per Apple Ile programmi gestionali, scientifici, 
didattici, linguaggi e giochi, possibilmente con manua¬ 
le. Inviare lista per contatto. Marco Chiesa - Via Guttua- 
ri. 5 -14100 Asti - Tel. 0141/30605 


Vendo per Apple programmi per Totlp-Enalotto-Toto- 
calclo. Sviluppo con selezione e stampa di qualsiasi 
sistema. Totocalcio già pronto per il 14?? risultato. Aldo 
Mena - Via Umberto I, 32 - 25030 Adro (BS) - Tel. 
7356159 


Cambio programmi e giochi per Apple Ile. Alberto Fa- 
sanotto - Via Campofiori, 55 - 37129 Verona - Tel. 
045/23945 


Cambio, vendo listati vari per Apple e Victor-Sirius. 
Salvo Giudice - Via San Pio X, 50 - 31031 Caerano San 
Marco (TV) - Tel. 0423/858201 


Cambio programmi di ogni tipo per Apple II, Ile, Ile e 
compatibili. Per maggiori informazioni scrivete o man¬ 
date la vostra lista, risponderò con la mia. Igor Bonat - 
Via Ressman, 6 - 34141 Trieste - Tel. 040/768718 


Cambio per Apple ogni tipo di software. Per informa¬ 
zioni scrivere a: Giacomo Cracchiolo - Piazza M. Ven¬ 
turi. 30 - 66100 Chieti - Tel. 0871/66687 


Cambio software per Apple II con hardware di ogni 
tipo. Ho una vastissima softeca con programmi per 
ogni esigenza. Gian Paolo Capponi - Via Riva del Gar¬ 
da. 98 - 41100 Modena - Tel. 059/302926 


Vendo per Apple II, avendo cambiato sistema, alcuni 
programmi fra cui: Multlplan, Pfs-Flle, UCDS-Pascal, 
Paddlepalnt, Spreadsheet, CP/M e ProDOS a prezzi 
stracciati. Telefonare a: Nicola - Tel. 0362/522476 


Vendo Apple Ile più monitor II, drive, 50 programmi tra 
cui Visidex, VisiCalc, Flight Simulator, Avventura Nel 
Castello, ecc. Il Tutto, in perfette condizioni, a L. 
2.000.000. Giampaolo Rolli - Via Rodolfo Tanzi, 41 - 
43100 Parma - Tel. 0521/31303 


Vendo Apple II plus originale a L. 790.000; separata- 
mente anche drive originale a L. 460.000; scheda lan- 
guage 16 Kbyte a L. 100.000; scheda CP/M nuova a L. 
125.000; interfaccia parallela grafica per stampante a 

210.000. Telefonare ore serali. Roberto Rossi - Via 
Lario, 26 - 20159 Milano - Tel. 02/6/J70236 

Cerco paddles o joystick per Apple II plus solo se in 
buono stato di funzionamento. Telefonare ore serali. 
Paolo Bonato - Piazza Tirana. 6/E - 20147 Milano - Tel. 
02/4152866 


Vendo per Apple II "Supertoto 1.0" superprogramma 
Totocalcio Inedito, 3 diverse opzioni di selezioni incro¬ 
ciate (nr. segni 1X2; consecutivi; corr. errori), con out¬ 
put nr. colonne utili, sviluppo su monitor o stampante a 
L. 60.000 più manuale. Roberto Rossi - Via Lario, 26 - 
20159 Milano - Tel. 02/607023 


Commodore 


Vendo V t C 20 pi ù ) o y stl c fc . “Introduzione a l B A 3t C “ 

parti 1 e 2,3 cartridge, registratore a L. 300.000. Rober¬ 
to Carotti - Via Benedetto Croce, 142 - 52100 Arezzo - 
Tel. 0575/352982 


Vendo VIC 20 più registratore, joystick, 3 cartucce, 
molti programmi in cassetta, 2 libri sul VIC 20, moltissi¬ 
mi listati. Antonio Pavan - Via Jacopo Della Quercia, 48 
- 35134 Padova - Tel. 049/612447 


Compro e cambio manuali di programmi per C64, mas¬ 
sima serietà. Cerco amici interessati al FORTH, sono 
interessato a qualsiasi cosa (programmi, libri, riviste) 
sul FORTH. Ferruccio Cantone-Via Genova, 18-10076 
Noie (TO) - Tel. 9297125 


Vendo C64, registratore, riviste insieme a 3 cartridge al 
miglior offerente. Prezzo base: L. 290.000. Telefonate! 
Roberto Bruccoleri - Via Torino, 58 - 12044 Centallo 
(CN) - Tel. 0171/714704 


Cerco In Vicenza e provincia appasslonatl/e di 

C64 per scambio di programmi od esperienze 
per realizzare iniziative comuni come l'acqui¬ 
sto di software a spese ripartite e club. Andrea 
Lorenzon-Via Luigi Cavalli, 5-36100 Vicenza- 
Tel. 0444/40050 


Vendo Commodore 64 più drive 1541, registratore ori¬ 
ginale, 2 dischi con programmi, 10 cassette per un 
totale di circa 500 programmi. Il tutto a L. 1.400.000 
trattabili. Vendo anche i pezzi separatamente. Enrico 
Minelle - Corso Vittorio Emanuele, 165 - 35100 Padova - 
Tel. 049/663387 


* Cerchiamo adesioni per costituzione del più 
! favoloso dei Commodore Club. Telefonare ore 

■ pasti. Davide Conte e Donato Aprile - Via Anto- 
I nlo De Luca, 10/G - 80070 Ischia (NA) - Tel. 

■ 081/99108 


Vendesi Commodore C16 semlnuovo con registratore 
1531, 14 giochi originali su cassetta (Donkey Kong, 
Harbour Attack ...), joystick Magnum con autofire a L. 
400.000 trattabili. Maurizio Cima - Via Giuseppe Verdi, 
11 - 55048 Torre del Lago (LU) - Tel. 0584/342024 


Vendo VIC 20 più 16 Kbyte, registratore originale, centi¬ 
naia di programmi, trislot autocostruito a L. 250.000. 
Telefonare ora di cena. Alessandro Giolitti - Via Fabro- 
ni, 45 - 50134 Firenze - Tel. 055/473810 


Vendo VIC 20 più espansione 16 Kbyte, super expan- 
der, cartuccia machine code language, cartucce di gio¬ 
chi e nastro di programmi a L. 350.000. Riccardo Bozzi - 
Via Risorgimento, 90 - 20092 Cinisello Balsamo (MI) - 
Tel. 6128851 


Compro per C64 schede aggiuntive di ogni tipo. Ferruc¬ 
cio Cantone - Via Genova, 18 - 10076 Noie (TO) - Tel. 
011/9297125 


Cambio più di 1.500 programmi per C64. Rispondo solo 
a chi vuole scambiare. Scrivi anche se non possiedi 
molti programmi, potresti avere quello che fa per me. 
BrunoCastelnuovo - ViaS. Antonio. 3 - 23020 Montagna 
in Valtellina (SO) - Tel. 0342/380234 


Vendo Commodore 64 più floppy disk, registratore a 
nastro, stampante, vari testi, linguaggi, diversi pro¬ 
grammi gestionali e giochi. Telefonare ore ufficio. 
Mauri Renato - Via Manzoni, 1 - 20080 Zibido 
S.Giacomo (MI) - Tel. 9003105 


Cambio programmi per C64, C16 e Plus/4. Dispongo di 
numerosi manuali. Cerco anche routines grafiche per 
MPS-802. Richiedere liste a: Gerardo Marra - Via P. 
Baratta, 91/A - 84091 Battipaglia (SA) - Tel. 0828/23130 


Cerco programma Fortran per CBM 64. Cambio con 
programma a scelta tra The Last One, Logo ed altri. 
Telefonare ore pasti (solo zona Milano). Luca Canda- 
ten - Via Senigallia, 11 - 20161 Milano - Tel. 02/6468851 


Vendo espansione 16 Kbyte e registratore dedicato per 
- V I G -2 0i - T «ief on a r « a : D a n il o Bafl o li - V ia A m e ndo la , 7 - 

25086 Rezzato (BS) - Tel. 2791586 (ore 19.00 - 20.00) 


Attezione! Causa passaggio a CBM 64, vendo VIC 20 
più registratore, libro "Alla scoperta del VIC 20", due 
cassette gioco a sole L. 200.000 trattabili. Tutto in otti¬ 
mo stato (comprato nel Gennaio 1985). Contatto tutta 
Italia. Per informazioni scrivere a: Gennaro Pinto - Via 
Seripando, 28 - 64100 Salerno 
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Compro a L. 500.000 Commodore 64 più disk drive, 
registratore dedicato; plotter 1520 a L. 150.000. Vendo 
inoltre Atari 600XL più registratore a L. 299.000. Massi¬ 
mo lacomelli - Via Plranesi, 26 - 20 137 Milano - Tel. 
02/7490510 


Vendo al miglior offerente Commodore CBM 4032 più 
duai drive 4040, il tutto in perfette condizioni e con molti 
programmi. Dott. Lucio Crippa - Via F. Nullo. 5 - 20035 
Lissone (MI) - Tel. 039/481485 


Cambio 30 videogames per C64 (One On One, Fort 
Apocalipse, sVimbledon, Mundial Soccer, ecc.) per Tot 
13 o Magic Desk più Easy Script. Per contatti scrivere o 
telefonare. Salvatore Argondizza - Via S. Francesco, 45 
- 87060 S.Giorgio Albanese (CS) - Tel. 0983/86112 


Vendo CBM 64 più floppy, datassette, monitor colore, 4 
libri, tutto il miglior software esistente su dischetti; tutto 
come nuovo, usato pochissimo, disponibile per dimo¬ 
strazioni a L. 1.600.000. Luigi Callegari - Via De Gaspe- 
ri, 47 - 21040 Sumirago (VA) - Tel. 0331/909183 


Vendo per Commodore 64 programma di contabilità 
ordinarla: prima nota, libro giornale, schede 
clienti/fornitori e conti di reddito; stampa bilancio e 
situazione clienti/fornitori, il tutto automaticamente. 
Rag. Luciano Usuelll - Via Isonzo, 31 - 21100 Varese - 
Tel. 0332/242596 


Vendo VIC 20, datassette, 30 giochi, alcune riviste e 
libri, tutto in ottime condizioni (esiste ancora la garan¬ 
zia). Tutto a L. 180.000. Marilena Fontanesi - Via C. 
Tenca, 5 - 20124 Milano - Tel. 02/6594598 


Si è aperto in Campania un club riservato ai soli utiliz¬ 
zatori di C64. 

L'iscrizione è gratuita. Tutti gli iscritti riceveranno ogni 
mese un bollettino ricco di programmi e di trucchi. Ezio 
Esposito - Via Bonea, 1 - 80069 Vico Equense (NA) - Tel. 
081/8798584 


Vendo per VIC 20 espansione 8 Kbyte RAM, cassetta 
game "Slrpent" originale, cassetta con 5 game più 
libro "Alla scoperta del VIC 20" e libro con 20 program¬ 
mi. Il tutto a sole L. 100.000. Stefano Bonelli - Via G. Di 
Vittorio, 7 - 53014 Monteroni D’Arabia (SI) 


Per CBM 64 dispongo di libri, manuali, utility su cartrid- 
ge (Turbo, Fast Copy, Turbo Disco, ecc.). Marcello Cesi 
- Via Magliana Nuova, 178 - 00146 Roma - Tel. 
06/5266009 


Vendo VIC 20 (Tanno di vita) più espansione 16 Kbyte 

modi ficata per dupli care cartucce su nastro, 50 pro- 
gràmmi con utility e yamos super espander a L. 
250.000. Tratto solo in Calabria. Angelo Lacco - Via 
Degli Stadi, 80 - 87100 Cosenza - Tel. 0984/31871 


Vendo C64 più floppy, datassette, 30 dischi, libri dedi¬ 
cati a L. 1.100.000. Il software è una selezione del 
meglio presente sul mercato. Materiale in perfette con¬ 
dizioni. Luigi Callegari - Via De Gasperi, 47 - 21040 
Sumirago (VA) - Tel. 0331/90918 


Vendo Commodore 64 più registratore, drive 1541, 
stampante MPS802, 180 magnifici programmi, manuali 
vari, tutto come nuovo con imballi originali a L. 
1.600.000 o separatamente. Massimo Proia - Via Pub¬ 
blico Passeggio, 16 - 29100 Piacenza (PC) - Tel. 
0523/32417 


Vendo VIC 20 accessoriatissimo: Eprom, Motherboard, 
3 Kbyte S E., registratore, light pen, libri riviste, softwa¬ 
re LM; || tutto a sole L. 4S0.Q0Q trattabili. Telefonare ore 
pasti. Massima serietà. Silvio Cappelli-Via Milano, 19- 
19100 La Spezia - Tel. 0187/36600 


Vendo VIC 20 più espansione 16 Kbyte più 3 cartucce 
(VIC-Avenger, Dragonfire, Sargon II Chess), tante cas¬ 
sette; il tutto a L. 180.000. Rivolgersi ore serali a: Marco 
Della Sala - Via Francesco Ferraironi, 41/7 - 00172 
Roma - Tel. 06/288472 


Sono da poco un possessore di CBM 64 e sono molto 
Interessato all'acquisto di programmi su nastro: utility, 
giochi e programmi vari. Prego Inviarmi vostre liste. 
Pasquale Martire - Via Emanuele Carnevale, 1 - 90145 
Palermo - Tel. 091/563931 


Vendo C64 (10 mesi di vita) più drive, registratore dedi¬ 
cato, 50 utility, 100 giochi LM. Chiamatemi, troveremo 
un accordo. Benedetto Raspanti - Via Dei Glicini, 37 - 
91100 Trapani - Tel. 0924/22911 


Compro disk driver 1S41perCBM64adunbuon prezzo 
e in buono stato con software (solo zona Bologna). 
Stefano Pierotti - Piazza Musi, 11 -40127 Bologna-Tel. 
051/500174 


Vendo VIC 20 a L. 200.000 trattabili. Per chi acquista il 
VIC 20 libri e cassette in omaggio. Massimo Vannetti - 
Via Paolini, 7 - 58043 Castiglione della Pescaia (GR) - 
Tel. 933841 


Compro C64 usato purché In buono stato e vera occa¬ 
sione più registratore, stampante MPS802. Acquisto 
anche singolarmente. Tratto preferibilmente con le zo¬ 
ne di Puglia e Basilicata. Maurizio Coccorese - Via 
Gentile, 108/D - 70126 Bari - Tel. 080/491374 


Riparo Commodore 64 e Spectrum in tempi brevi. Tele¬ 
fonare ore ufficio. Carlo Merlin! - Via Ravenna, 14/A - 
20135 Milano - Tel. 02/5695876 


Vendo VIC 20 più registratore C2N, Super Expander, 
Hes Mon, joystick, cartucce (Scacchi, Gorf), giochi su 
cassetta, 4 libri, il tutto a 1.300.000. Roberto Stanghelli- 
ni - Via Italia, 40 - 20094 Corsico - Tel. 02/4583257 


Vendo plotter Commodore 1520 usato pochissimo solo 
in zona Roma a L. 290.000 non trattabili. Telefonare ore 
pasti a: Alessandro Fabbrini - Via Ludovico di Savoia, 
10 - 00185 Roma - Tel. 06/7578609 


Per C64 vendo cartridge Turile Graphics II a L. 70.000 
usata pochissimo. Telefonare ore 19.00-21.00 a: Lello 
Bove - Via Papini, 29 - 80046 San Giorgio a Cremano 
(NA)-Tel. 081/7714412 


Vendo Commodore VIC 20 In buono stato più registra¬ 
tore, joystick con molti giochi ed espansione 16 Kbyte. 
Il tutto a sole L. 300.000 trattabili. Marco Mori - Via A. 
Vespucci, 7 - 50054 Fucecchio (FI) - Tel. 0571/261088 


Commodore Club Perugia cerca soci In tutta Italia. 

Iscrizione L. 3.000 mensili; videogare, scambi e tante 
iniziative. Simone Merlini - Via Baglioni, 24 - 06100 
Perugia-Tei. 075/61580 


Vendo C64 più drive 1541 e regalo software all'acqui¬ 
rente. Tutto funziona perfettamentel II prezzo? Solo L. 
800.000! Telefonate a: Paolo Toffetti - Via Derna, 28 - 
20132 Milano - Tel. 02/2829186 


Vendo VIC 20 più relativi cavetti, espansione 8 Kbyte, 

cassette con circa 300 giochi in LM, 3 libri (VIC Pro- 
grammers. Alla scoperta del VIC, Impariamo a pro¬ 
grammare) più 4 cartucce a L. 200.000. Roberto Zanno- 
ni - Via Biancardi, 9 - 20075 Lodi (MI) - Tel. 0371/53847 


Per C64 cambio qualsiasi programma, sia games che 
utiltà o gestionali su disco. Inviatemi la vostra lista, 
assicuro massima serietà e risposta a tutti. Umberto 
Brunetti - Via Rosa Luxemburg, 21 - 47040 Ospedaletto 
di Rimini (FO) 


Vendo VIC 20 più registratore, super expander 3 Kbyte, 
Cosmic Cruncher (su cartuccia). 50 stupendi giochi tra 
cui Tron, Defender, Pac Man, Arcadia. Amok, ecc. Il 
Tutto a sole I_ 300.000 trattabili. Fabio Boiardi - Via. 

Sidoli, 50 - 29100 Piacenza - Tel. 0523/72817 


Vendo pér VIC 20; 16 Kbyte RAM L. 75.000,8 Kbyte RAM 
L. 45.000, 24 Kbyte RAM L. 110.000, VIC Mon L. 35.000, 
Hi-Res L. 35.000, programmatore dì 2516/2716 L. 
30.000. Per C64 vendo a L. 20.000 disco con utility 
(copiatori, compilatori). Nicola Pedroli-Casella Posta¬ 
le - 20080 Cisliano (MI) - Tel. 02/9018875 


Vendo C64 più registratore, coprltastlera, garanzia Si- 
rius, joystick, tastierino musicale, oltre 40 cassette, 8 
libri eccezionali e costosissimi; il tutto a L. 700.000. 
L'Intero sistema ha solo 2 mesi di vita. Fabrizio Benelli 
- Via Don Pio Vannucchi, 41/A - 50047 Prato (FI) - Tel. 
0574/594942 


Vendo Commodore CBM 3032 a fosfori verdi 32 Kbyte 
RAM, con registratore C2N, manuali, a L. 500.000 trat¬ 
tabili. Telefonare chiedendo di Herbert o scrivere. Car¬ 
lo Puccio - Via Litta Modignani, 5 - 20161 Milano - Tel. 
02/6464454 


Sinclair 


Cerco Sinclair ZX80 con vecchia o nuova ROM e sche¬ 
ma elettrico dello ZX80. Telefonare solo tra le 12.30ete 
13.00 o tra le 19.30 e 20.30. Aldo Vendramln - Via 
Chiaradia, 3 - 33077 Sacile (PN) - Tel. 0434/733139 


Disponendo di 1.200 programmi per ZX Spectrum cer¬ 
co utenti disposti allo scambio Spectrum - Commodore 
64. Annuncio sempre valido. Alfredo Triflletti - Via Fiu¬ 
me, 20/A - 71100 Foggia - Tel. 0881/75385 


Vendo ZX Spectrum 48 Kbyte più 100 programmi, inter¬ 
faccia joystick programmabile a L. 350.000 trattabili. 
Inoltre vendo programmi per Apple Ile - Il plus. Stefano 
Sparvoli - Via Passo Rolle. 53 - 20134 Milano - Tel. 
2151496 


Causa passaggio a sistema superiore vendo agli "ap¬ 
prendisti” di BASIC Sinclair ZX81 più alimentatore, 
manuale, espansione 16 Kbyte, programmi su cassetta 
a sole L. 70.000! Scrivere o telefonare. Antonello Car¬ 
bone - Via Adone, 5 - 95040 S.G. Gaiermo (CT) - Tel. 
095/393046 


Vendo Spectrum 48 Kbyte a L. 300.000; 350 programmi 
L. 150.000; interfaccia joystick L. 50.000; registratore L. 
50.000. In blocco o separatamente; telefonare ore pa¬ 
sti, solo zona Roma. Giuseppe Fasulo - Via F. Berni, 5 - 
00185Roma-Tel. 7577351 


Vendo Spectrum 48 Kbyte con manuali, registratore, 
libro per LM, 2 libri di grafica, light pen, cassette giochi, 
giornali. Acquistato nel Dicembre 1984, tulio in ottime 
condizioni a L. 400.000. Mauro Pavone - Via Capecela- 
tro, 30 - 20148 Milano - Tel. 02/4075792 


Vendo Sinclair ZX80 a L. 100.000. Andrea Roidi - Viale 
Augusto. 105 - 80125 Napoli - Tel. 081/616837 


Quantum Leap User Club cerca nuovi soci In tutta Italia. 

Iscrizione gratuita. Abbiamo già a disposizione libri, 
software e tanti consigli e idee. Roberto Ghezzi - Via 
Volontari Del Sangue, 202 - 20099 Sesto S. Giovanni 
(MI)-Tel. 02/2485511 


Desidero comunicare con possessori di Sinclair QL per 
scambio Informazioni, chiarimenti, ecc. Ulderico Gua¬ 
dagno - Via Tito Livio, 95 - 00136 Roma - Tel. 06/3492694 


Vendo ZX Spectrum 48 Kbyte più alimentatore stabiliz¬ 
zato, stampante Alphacom 32, numerosi programmi, 
tutto a L. 450.000. Telefonare ore pasti. Giuseppe Fingi¬ 
tore - Corso G. Nicotera, 137 - 88046 Lamezia Terme 
(CZ) - Tel. 0968/23816 


Compro, cambio software per QL. Richiedere e/o invia¬ 
re lista. Andrea Galli - Via Palagetta, 212 - 50017 
S.Piero a Ponti (FI) 


Vendo ZX Spectrum 48 Kbyte issue 3 (8 mesi di vita) r.nn 

alimentatore anti black-out e predisposto per l'attacco 
monitor a L. 320.000. Giorgio Colombo - Via S.Carlo, 13 
- 20035 Lissone (MI) - Tel. 039/481908 


Compro ZX Interface 1 più ZX microdrlve con cartucce, 

possibilmente in ottimo stato. Compro anche separata- 
mente. Prezzo contenuto. Gianni Remo - Via Bandita. 
20/D - 51022 Bardatone (PT) - Tel. 65318 


111 


























































PERSONAL MARKET 


Vendo ZX81 più espansione 64 «byte, alimentatore, 
cavetti. 3 libri (manuale originale, "Guida allo ZX81", 
"66 programmi per ZX81"). Imperio Palazzini - Via 
Pislno, 36 - 00177 Roma - Tel. 06/2593893 


Vendo per Spectrum 48 Kbyte programma di riduzione 
sistemi Totocalcio In LM, con possibilità di stampare le 
schedine con Selkosha GP 50S, a L. 30.000. Per infor¬ 
mazioni telefonare a: Claudio Nava - Via della Palaz- 
zetta, 9 - 20052 Monza (MI) - Tel. 039/742638 


Il Sinclair Club di Roma-Talenti cerca possessori di 
Spectrum in tutta Italia tra coloro che vogliono usare il 
computer sla come sofisticato vldeogioco o cerchino 
qualcosa In più. Massimo D'Ascenzo - Via F. D'Ovidio, 
109 - 00137 Roma - Tel. 06/8280043 


Vendo ZX Spectrum più espansione a L. 300.000 tratta¬ 
bili con omaggio di 100 giochi, 16/48 Kbyte. Telefonare 
dopo pranzo o scrivere a: Daniele Cinquini - Via Volpi, 
39 - 55049 Viareggio (LU) - Tel. 391196 


Vendo ZX Spectrum 80 Kbyte a L. 300.000, compresi 
programmi con le migliori utility e i piu bei videogiochi. 
Tutto come nuovo. Marco Prinetti - Via Mazzone, 14 - 
13037 Serravano Sesia (VC) - Tel. 0163/470177 


Cambio programmi di ogni tipo per ZX Spectrum. Per 
maggiori informazioni scrivere e mandare la propria 
lista, risponderò con la mia. Igor Bonat - Via Ressman, 
6 - 34141 Trieste - Tel. 040/768718 


Vendo Spectrum 48 Kbyte, registratore In omaggio, 

libro sullo Spectrum, 6 cassette di giochi; tutto a L. 
300.000 trattabili. Il prezzo comprende spese di spedi¬ 
zione. Simone Dall'Oglio - Via Caduti sul Lavoro, 4 - 
52100 Arezzo - Tel. 0575/24729 


Vendo Spectrum 48 Kbyte completo di accessori, ma¬ 
nuali, joystick interfacciato, 250 programmi a L. 450.000 
trattabili. Marcello Tontodonati - Piazza Vescovio, 3 - 
00199 Roma - Tel. 06/8313266 


Vendo X Spectrum, alimentatore, cavi, manuale in ita¬ 
liano, interfaccia, joystick. 100 giochi, riviste. Il compu¬ 
ter è espanso a 48 Kbyte. Tutto In perfette condizioni a 
L. 350.000. Sergio Ressi - Via Bernardino Verro, 78/F - 
20141 Milano - Tel. 8466551 


Vendo ZX Spectrum più 2 manuali In Italiano originali 
ed oltre 200 programmi a L. 300.000 trattabili. Telefona¬ 
re dopo le 19.00. Massimiliano Poletti - Via Val d'Intelvi, 
4 - 20152 Milano - Tel. 02/4590357 


Affarone! Vendo ZX Spectrum come nuovo con manua¬ 
le In Italiano e Inglese, ZX.printer, registratore, listati, 
libro sul linguaggio macchina. Il tutto a L. 400.000. 
Telefonare ore pasti. Roberto Tirane - Via Pacini, 76 - 
20131 Milano - Tel. 02/295064 


Per Sinclair QL vendesi espansione 128 Kbyte RAM. 
Telefonare per informazioni ed accordi. Giampiero So- 
brero - Via Apparizione, 15 - 16133 Genova - Tel. 
010/392187 


Vendo ZX Spectrum più interfaccia joystick Kempston 
programmabile (adatta a qualsiasi gioco) con istruzio¬ 
ni in Italiano, il libro "Alla scoperta dello ZX Spectrum", 
circa 200 giochi tra i quali le ultime novità come Gho- 
stbusters, Pole Position, Beach Head, ecc., diverse 
riviste italiane e inglesi. Tutto a L. 380.000 trattabili. 
Gianluca Papi - Via Teognide, 134 - 00125 Roma - Tel. 
06/605485 


T e xas 


Vendo modulo Extended BASIC più manuali, corso su 
nastro a L. 150.000; consolle TI 99/4A, manuali, acces¬ 
sori, joystick Spectravideo adattato a L. 200.000. Solo 
zona Roma - Telefonare ore pasti. Claudio Fedeli - 
Piazza F.A. Dorla Pamphili, 23 - 00149 Roma - Tel. 
06/5584418 


Vendo per passaggio a sistema superiore TI 99/4A più 
cavo per registratore, registratore, manuale in italia¬ 
no, 2 libri di programmi, 3 cassette giochi, listati a L. 
280.000; tutto in condizioni ottime, solo due mesi di vita. 
Claudio Sala - Via Avanzini, 12 - 41042 Fiorano (MO) - 
Tel. 0536/830451 


Vendo al miglior offerente TI 99/4A completo di espan¬ 
sione memoria 32 Kbyte, interfaccia parallela, RS232, 
modulo Extended BASIC, TiCalc, Scacchi, Calcio, Inva- 
ders, Carwars, Munchman, Videogiochi 1, Parsec, 
Moon Mine, joystick, registratore. 150 programmi su 
cassetta, 1.000 listati, 5 volumi. Telefonare ore pasti 
serali. Gigi Masala - Via G. Casati, 47 - 20033 Palazzolo 
Milanese (MI) - Tel. 02/9101693 


Compro Extended BASIC a prezzo stracciato con testo 
Texas Instruments TI 99/4A. Marco Pallagrosi - Via Tor 
Cervara 110,112-00151 Roma - Tel. 06/221896 


Vendo per TI 99/4A programma su cassetta di "Gestio¬ 
ne Finanziarla” con calcolo rendite, scontf, interessi 
composti e tabelle ammortamento costante e progres¬ 
sivo (util. maschere video) a L. 40.000. Marco Pedroni - 
Via Mazzini, 22 - 26100 Cremona - Tel. 0372/37265 


Compro per TI 99/4A modulo SSS Soccer ad un prezzo 
trattabile ed inoltre cambio un sacco di giochi, vera¬ 
mente belli, sia su nastro che listato. Scrivetemi presto 
e a tutta forza! Claudio Fameli - Via Leopoldo Bignone, 
27/5 -16157 Ge-Pra (GE) - Tel. 010/663998 


Compro per TI 99/4A coppia di joystick. Inoltre possie¬ 
do un TI 99/4A non funzionante. Cerco laboratorio per 
eventuale riparazione. Chi può fornirmi indirizzi utili 
mi scriva. Luigi Garofoli - Via Ospedale, 29 - 60011 
Arcevia (AN) 


Per TI 99/4A compro Interfaccia RS232 perfettamente 
funzionante. Scrivere o telefonare ore serali. Alessan¬ 
dro Garoli - Corso Dante, 35 -12100 Cuneo - Tel. 65265 


Compro manuale per Extended BASIC scritto In Italia¬ 
no. Massimiliano Bruno Ventre - Via De Galboli, 7 - 
28100 Novara - Tel. 0321/478356 


Vendo per TI 99/4A programma su cassetta per calcolo 
"attenuatori” a ”T”, "T-shuntato" e "TT" con rappre¬ 
sentazione grafica, a L. 35.000. Scrivere o telefonare 
ore pasti. Marco Pedroni - Via Mazzini, 22 - 26100 
Cremona - Tel. 0372/37265 


Compro modulo SSS Mlnlmemory per TI 99/4A. Prezzo 
massimo L. 90.000. Inviare offerte a: Maurizio Ortolani - 
Viale Dante Alighieri, 41 -61100 Pesaro 


Vendo TI 99/4A, Joystick, Extended BASIC, 10 moduli 
SSS con istruzioni, 10 cassette di giochi vari, manuali e 
listlng diversi a L. 550.000. Luca Cenacchi - Via Saboti¬ 
no, 4 - 21047 Saranno (VA) - Tel. 02/9607196 


Vendo TI 99/4A In ottime condizioni completo di cavi TV 
e registratore, modulo SSS Scacchi, manuale di istru¬ 
zioni, libro sul TI 99 del Gruppo Editoriale Jackson, 
cassette dì programmi. Davide Pignat - Pendice Sco- 
glietto. 5/3 - 34127 Trieste - Tel. 0432/577275 


Vendo TI 99/4A più cavetto per registratore, 2 manuali, 
30 programmi su cassetta (Jawbreaker II, Moon Mine. 
Archivio, ecc.), programmi su carta, tutto nuovissimo (3 
mesi di vita) a L. 340.000. Stefano Rostici - Via della 
Selva, 81 - 00034 Colleferro (RM) - Tel. 9780280 


Compro perlpheral box, completo di sistema a dischi a 
L. 500.000 trattabili, tutto completo dei relativi manuali. 
Mo ur i z i o Orto lani—Violo D a n te A li gh ie r i , 4 1 —64409- 

Pesaro 


Vendo TI 99/4A più alimentatore, modulatore PAL, ca¬ 
vo per registratore, 11 programmi su cassetta, libro sul 
TI e "Giochiamo col TI", riviste "MC Microcomputer'' e 
20 giochi su fotocopia a L. 200.000 trattabili. Maurizio 
Bua - Via Marcello Capra, 57 - 94014 Nicosia (EN) - Tel. 
0935/48179 


Cerco P-Code completo di accessori in buono stato. 
Telefonare ore pasti. Leonardo De Miccolis - S.S. Albe¬ 
robello, 80-70017 Putignano (BA)-Tel. 080/734683 


Vendo TI 99/4A più expanalon box, Extended BASIC, 

Editor Assembler, 32 Kbyte RAM expansion, disk drive, 
3 moduli SSS. Regalo dischetti, cassette, joystick e 
cavetto registratore. Tutto con manuali originali più 
Disk Manager. Vincenzo Vidili - Corso Grosseto, 62 - 
10148 Torino - Tel. 011/2201809 


Vendo TI 99/4A completo con coppia Joystick e diversi 
programmi, più SSS Filetto a L. 200.000. Giuseppe Bo¬ 
ve - Via R. Follereau, 45 - 60044 Fabriano (AN) - Tel. 
261814 


Vendo TI 99/4A con Extended BASIC, 3 moduli SSS, 2 
joystlcks, cavo per registratore, programmi su casset¬ 
ta, registratore Texas dedicato, manuali, corsi, libri. 
Telefonare ore 19.00-21.00. Hubert Schincariol - Via 
Vittorio Veneto, 104 - 22032 Albese con Cassano (CO) - 
Tel. 031/42764 


Varie 


Sviluppiamo o personalizziamo software su richiesta 
su CBM, Apple e MS-DOS. Preventivi su richiesta tele¬ 
fonica. Serietà e competenza. Per informazioni e ri¬ 
chieste scrivere o telefonare. Alfredo Dal Ferro - Via 
Fornare, 3 - 21040 Castronno (VA) - Tel. 0332/495989 


Vendo PB700 Casio completo di plotter e registratore 
CN1 con valigetta e libro, interfaccia parallella per 
stampante FA4, libreria con numerosi programmi. Tut¬ 
to a L. 1.100.000. Armando Scudieri - Via Aurelia Pon., 
50 -18011 Arma di Taggia (IM) - Tel. 0184/83284 


Vendo Sharp MZ-700 più stampante, plotter 4 colori, 

registratore, BASIC, manuale. Usato poco, ottime con¬ 
dizioni. L. 800.000 non trattabili. Vincenzo Cusolito - Via 
Setaioli, 15 - 98100 Messina - Tel. 090/362459 


Vendesi PC 1500 Sharp più stampante, espansione 8 
Kbyte, adattatore a L. 700.000 trattabili. Alfio Masier - 
Via Balustra -15057 Tortona (AL) - Tel. 0131/812434 


Cerco rivista arretrata di "Elektor” nr. 13 (Giugno 1980) 

per acquistarla o, eventualmente, fotocopiarla. Per 
proposte scrivere oppure telefonare ore pasti. Pago 
bene anche solo per fotocopiarla. Maurizio Speziale - 
Via Merano, 3 - 20093 Cologno Monzese (MI) - Tel. 
02/2543509 


Cerco fotocopta manuale del compilatore BA9IC IBM 
"BASIC Compller” by Microsoft in inglese/italiano. Te¬ 
lefonare ore ufficio allo 0832/26482 chiedendo di Ser¬ 
gio. Sergio Nuzzo - Via Q. Sella, 3 - 73100 Lecce (LE) 


Vendo Trlumph Adler PC con floppy e monitor 12” 
fosfori verdi, 3 mesi di vita, con CP/M, BASIC interprete 
e compilatore. Assembler, MBASIC, Wordstar, Logi¬ 
cale e software vario a L. 2.000.000. Telefonare ore 
ufficio a Roberto, tei. 02/2899763 


Vendo computer portatile Olivetti MIO 24Kbyte con pa¬ 
recchi programmi (traduttore Pascal, compositore mu¬ 
sicale, studio di funzioni). Ideale per studenti (io lo 
porto agli esami al Politecnico), L. 1.500.000 trattabili. 
Guido Galimberti - Via F.lli Rosselli, 9 - 20139 Milano - 
Tel. 02/568660 


Cerco fotocopie del listati e relativi articoli di Abukir 
1798 ("Personal Software" nr. 16 - 1984), Le Mans 
- (" Bi t" n r. 1 6 - 1 88 1), I n o a m bi o d i og ni-preg r a mm e- 

invlatomi offro 2 giochi per CBM 64 . Gianluca Ferri - 
Via Roma, 16/1 - 48018 Faenza (RA) - Tel. 0546/662263 


Vendo Sega SC-3000 più cartuccia memoria 16 e 32 
Kbyte, cassetta "Impariamo il BASIC", joystick, 3 car- 
tridge gioco (Insub, Golf, Pacar) a L. 500.000. Guido 
Pedrini - Via Villini di Sturla, 2/3 -16131 Genova - Tel. 
010/3994223 
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Vendo Atari CX 2600 In buono stato; con 6 cassette 
gioco L. 350.000, senza cassette L. 200.000. Scrivere a: 
Silvio Peruzzo - Via Vignole, 1 - 36030 Levà di Montec- 
chio P. (VI) - Tel. 0445/864616 


Vendo computer Speclravideo SV318 semlnuovo, 3 
mesi di vita (64 Kbyle ROM/RAM), registratore, alimen¬ 
tatore, cavo TV, 3 cassette di giochi, cartridge gioco 
Sectoralpha. manuali d'uso a L. 420.000 (trattabili). 
Alex Fantechi - Via Bello, 16 - 17030 S. Fedele (Alben- 
ga) (SV) - Tel. 548256 


Vendo Intellevlslon più Intellivoice, Lucky Keyboard, 
10 cassette (Burgertime. River Raid ...), istruzioni e 
scatole originali a L. 650.000 trattabili. Telefonare ore 
serali. Danila Ronco - Corso Vittorio Emanuele II, 200 - 
10138 Torino - Tel. 011/7567118 


Vendo MPF II 64 Kbyte RAM, Applesoft compatibile più 

tastiera separata, interfaccia per 2 drive, 1 drive, joy¬ 
stick, 10 cassette giochi, 10 dischi utilità, tutti i manuali 
italiani a L. 1.000.000 (tratt.). Giuseppe Culmone - Via 
2/F, 11-91011 Alcamo (TP) - Tel. 0924/29158 


Vendo box, disk drive, disk controller, disk manager, il 
tutto garantito, per L. 1.500.000 non trattabili. Solo zone 
di Milano, Bergamo, Lecco. Telefonare di domenica. 
Carlo Aceti - Via I Maggio, 4 - 92050 Verderio Interiore 
(CO)-Tel. 039/510715 


Vendo Sega SC-3000 16 Kbyte espandibili, alimentato- 
re stabilizzato, cavetti, manuale d'istruzioni, cartuccia 
BASIC, Star Jaker, Congo Bongo, 2 joystick semipro¬ 
fessionali a L. 350.000 (valore effettivo L. 750.000). Mar¬ 
co Monlga - Via Collecchio, 16/8 - 20148 Milano - Tel. 
02/395140 


Vendo consolle Alari 2600 a L. 150.000 più 22 cassette 
tra le più belle in commercio a L. 500.000. Vendo tutto in 
blocco a L. 600.000. Milo Gallico - Via Boeri, 11-20141 
Milano-Tel. 02/8431317 


Vendo stampante Epson FX80 con interfaccia parallela 
Apple a L. 1.200.000 fatturabili. Telefonare ore pasti. 
Raul Rosenthal - Via Montebello, 67 - 25128 Brescia - 
Tel. 030/380946 


Vendo a prezzo da concordare Olivetti M20-ST doppio 
floppy, video fosfori verdi, stampante PR 1450; softwa¬ 
re ingegneria civile, gestione ambulatorio U.S.L di me¬ 
dicina generale. Oliword, Olitutor, Gestione Archivi 
Clienti, vari. Telefonare ore serali. Dott. Francesco 
Ferrante - Via I Maggio, 33 - 56030 Montecalvoii (PI) - 
Tel. 0587/748457 748211 


Vendo HP16C nuovissima, mai usata, ancora imballata 
sole L. 260.000 o cambio con HP15C. Ferdinando Auric- 
chio - Via Orazio, 10 - 80123 Napoli - Tel. 081/660144 


Cerco possessori TRS80 Mod. 2 e Mod. 3 per scambio 
Informazioni ed esperienze. Luca Floris - Via G. Dezza, 
20 - 00152 Roma - Tel. 06/5896049 


Cerco joystick universale Cambridge Computing in 

qualsiasi condizione purché funzionante. Roberto Mo¬ 
rosi - Piazza IV Novembre, 9 - 20035 Lissone (MI) - Tel. 
484901 


Cerco "Personal Software" dal nr. 1 al nr. 16 o meglio 
le fotocopie degli articoli riguardanti il C64. Cambio 
con giochi per C64. Tratto possibilmente con utenti in 
zona Bologna. Fabrizio Nardi - Via Bonavia, 6 - 40068 S. 
Lazzaro di Savena (BO) - Tel. 46508 


Occasione: vendo Xerox 820, doppio drive 8” più stam¬ 
pante margherita Xerox, CP/M, Wordstar, emulazione 
3270 a L. 6.000.000 più IVA. Software in omaggio. Tele¬ 
fonare ore ufficio. Ferruccio Ferrazza - Via Donati, 16 - 
20146 Milano - Tel. 02/471528 


Vendo serie programmi scientifici, matematici e finan¬ 
ziari per Sharp PC 1245 e 1251. Prezzi interessantissi¬ 
mi. Scrivere o telefonare ore pasti. Marco Padroni - Via 
Mazzini, 22 - 26100 Cremona - Tel. 0372/37265 


Vendo Enciclopedia di Scienza e Tecnica (E.S.T.) Mon¬ 
dadori più Enciclopedia di Elettronica e Informatica o 
cambio. Telefonare ore ufficio. Angelo Furia - Via A. 
Tealdl, 1/b - 56100 Pisa - Tel. 050/576613 


Vendo per N.E. Z80 o Micro Design configurazione 
CP/M le schede aggiuntive "Computer Parlante” e 
"Grafica Sovrapposta” con relativo software. Eseguo 
schede personalizzate. Marco Sudetti - Via Martiri del¬ 
la Libertà, 52 -10040 Borgaretto (TO) - Tel. 3580200 


Vendo Sega SC-3000 32 Kbyte ancora In garanzia, per¬ 
fetto, con circa 150 programmi a L. 35.000 non trattabili. 
Guglielmo Nervegna - Via Risorgimento, 273 - 47100 
Forlì-Tel. 0543/84006 


Compro hardware rotti, danneggiati, Inutilizzabili, dei 

più conosciuti home computer. Annuncio sempre vali¬ 
do. Gian Luigi Calzolaro - Via M. della Benedicta, 3/12 - 
16010 Rossiglione (GE) - Tel. 010/925447 


Vendo Apple compatibile orientato alla grafica, com¬ 
pleto di monitor, drive, video digitizer con telecamera, 
stampante e moltissimo software. Occasione d'oro. Tri 
- S.Polo 1674 - 30125 Venezia - Tel. 041/32382 


Guida per l’input dei programmi versioni VIC 20 e C 64 

Notate che i listati contengono “parole" racchiuse tra parentesi graffe { } . Tali parole rappresentano 
caratteri di controllo come mostrato nel sottostante riquadro. Se sono precedute da un numero, questo 
indica il numero di volte che quel tasto deve essere premuto. Se il simbolo è sottolineato deve essere 
premuto contemporaneamente a SHIFT mentre se è racchiuso da [ < > ] deve essere premuto contempora¬ 
neamente al tasto COMMODORE. Inoltre, se tra parentesi si trova un carattere alfabetico “solitario”, questo 
dovrà essere premuto contemporaneamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto più agevo l e co piare i listati senza faticose e dubbie interpretazio¬ 
ni di caratteri grafici e di controllo di cursore o dei colori. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

{CLR} 

UIIIII 

E 

{CYN} 

QQ| Q 

m 

I<7>] 

HB 

□ 

{HOME} 


0 

{PUR} 

F3TT1 Q 

m 

. (<8>| 

□ □ 

■ ■ 

{SU} 

mini iimuli 

n 

{GRN} 

EM Q 

□ 

* {FI} 

1X1 


{GIU' } 

marein 

0 

{BLU} 

KH7H Q 

□ 

{F2} 

re 

ai 

{SIN} 


li 

{YEL} 

FTO 1 g 

Si 

{F3} 

GS 

■ 

{DES} 

B-l :!■!:£) 

a 

[<1>] 

E3 □ 

□ 

{F4 } 

rz) 

e 

{RVS} 

fTHl Q 

H 

[<2>] 

□ O 

RI 

{F5} 

re 

il 

{OFF} 

ftm Q 

■ 

[<3>] 

HO 


{F6} 

re 

SI 

{BLK} 

K4I.I1 O 

■ 

[<4>] 

HO 

sa 

{F7 } 

r » 

II 

{WHT} 

Eli Q 

m 

[<5>! 

□ □ 

E 

{F8} 

re 

■ 

{RED} 

K4M1 Q 

E 

l<6>] 

E3Q 

■1 
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Prenotazione riservata 
ai possessori della II edizione 
di E.I. Enciclopedia 
di Elettronica e Informatica. 


Un volume di 100 pagine 
prezioso per lo studio, il 
lavoro, gli hobbies. 
Un’opera realizzata per 
chi vuol sapere tutto su: 

I circuiti in corrente 


continua . 

I circuiti in corrente 


Per una visione completa del progresso, 
completa la tua E.I. 


alternata . 

Il ma g netismo . 
l ’Elettrostatica , 

I circuiti trifase. 


E 


f RICHIESTA 
SPECIALE 
D’ACQUISTO 


Da Inviare In busta chiusa a: 
Gruppo Editoriale JACKSON 
Divisione Grandi Opere 
Via Roselllnl, 12 ■ 20124 Milano 



rm GRUPPO 
J EDITORIALE 
^ JACKSON 



ENCICLOPEDIA 
DI ELETTRONICA 
& INFORMATICA 



Si , per completare la II edizione 
di E.I. desidero ricevere il volume 
già rilegato di ELETTROTECNICA, 
al prezzo speciale di L. 29.000. 


Allego: 

□ Assegno non trasferibile a voi intestato 

□ Fotocopia di vaglia a voi intestato 

□ Fotocopia di CCP a voi intestato 


Nome 


Cognome 

Via 

Città 

CAP 

Prov. 

Firma 

P. IVA (per le Aziende) 

















































Un’altra grande idea firmata 

GRUPPO EDITORIALE JACKSON 

Milano-San Frarxjsco*Londra*Madrid 


Video Basic 

per imparare non solo il Basic. 


Oggi è davvero facile imparare il 
Basic. Con Video Basic il corso su 
cassetta che ti permette di 
programmare subito il tuo computer. 
E facile: tu chiedi, lui risponde, 
tu impari. Passo dopo passo. 

Sul tuo schermo appaiono le 
domande, le risposte, gli esercizi e 


tu, senza fatica, presto e bene, 
impari a conoscere 
e programmare il tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Sinclair. 

Video Basic è in edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Il corso è composto da: 

20 fascicoli + 

20 cassette + 

5 splendidi raccoglitori 


(Quattofdlclnoll) 


Oggi il Basic si impara così. 

Video Basic, il corso su cassetta per 
parlare subito col tuo computer. 


■ ■ Ritorna in edicola 

VIDEO BASK 

Il corso più entusiasmante su cassetta 
del Gruppo Editoriale Jackson per Commodore 64, 

VIC 20 e Spectrum 

200.000 copie vendute 


del 1 a fascicolo della prima edizione 


on« 


\ex' 
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09 °' 
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uno 























